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A SYSDATA GANHA 
DINHEIRO FAZENDO 
MICROCOMPUTADORES 
COMO O SYSDATA IH. 


ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDU. 


SYSDATA IH 
Aqui, tudo o que Você espera 
de um grande micro. 


SYSDATA HI 
Características técnicas. 
Para aqueles que querem 
saber tudo. 


Total compatibilidade com o 


Compatível com o TR5-80 
TRS-80 Modelo 1 da Radio 


Modelo Il da Radio Shack. 


Gabinete, teclado e CPU em Shack. 
módulos independentes. Processador Z-B0-A. 
Versões de 64 a 128 KBytes de Vídeo de 18 x 84 ou 16 x 32 


RAM, 16 KBytes de ROM, 
Teclado profissional com 
numérico reduzido e 4 teclas 


(linhas x colunas). 
Alimentação de 110 V ou 220 V. 
Teclado alfanumérico de 





de funções. 69 teclas. 
Sistema operacional de disco Teclado numérico reduzido 
DOS HT ou CPÍIM 2.2. com 4 teclas de funções. 


Caracteres gráficos. Gráficos com 128 x 48 pontos 
Vídeo composto com 18 MHZ no video. 
de faixa de passagem. Aceita alé duas R5-232-C 
Saida para impressora (Sincronas ou Assincronas). 





paralela. Modem (opcional). 

Saída paralela para 
ai | impressora. 
SYSDATA HI ir Placa controladora para até 
Software disponível 4 drives de 5 e 1/4”, dupla 


variado. Escolha o seu. 


densidade (180 KBytes pu 
Videotexto [TELESP). 


face], face simples (dupla face 








Projeto Cirandão opcional). 
[EMBRATEL). A à 
Rede de telex. Opções futuras: 
Sistema Gerenciador de Vídeo compativel 16 x 64, 
Banco de Dados (SGBD), = 16 x 32, 24x 80 ou 24 x 40 
DBASE II. (ao q [linhas x colunas). 





E e Expansão até 256 KBytes 
de RAM. 

Alta resolução gráfica e cor. 

Interface para acionamento de disco rígido 


Compiladores Cobol, 
Fortran, Pascal, Basic, Forth, 
Lisp e Pilot. 

Editor de textos. Editor de Assembler. 





Desassemblador. (Winchester) de 5, 10 0u 20 MBytes. 
Debugador. Clock dobrado [4,0 MHZ). 
Visicale. Total compatibilidade com o TR5-BO 
Wordstar, Mod. IV. 
e muitos outros. CPM versão 3.0. 


SYSDATA 


Sysdata eletrônica ltda. 07155 - Ar. Pacaembú, 788 - Pacaembú -SP - Fone: [018264077 
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VÁ PROCURAR SUA TURMA EM UM CLUBE DE MICROS 
Reportagem sobre clube de usuários. Como são formados, os objetivos e 
assuntos tratados nas reuniões. Você pode participar de um deles pagando 


ou gratuitamente. E ainda dicas para entrar em contato com clubes de 
Sinclair, Apple, TRS-80 e Color. 











EM DIA COM AS DUPLICATAS 

Toda empresa sabe a importância de manter, nesses dias de crise, 

suas duplicatas sob rígida fiscalização. Com este programa, de Paulo de 
Carvalho, você terá o controle das seguintes opções: vencimentos; 

Nº Duplicata; Situação; Banco/Cobrador; Sacado e Valor. 


MANTENHA O DRIVE RODANDO EM ORDEM 

Neste artigo de José Carlos Niza o usuário encontrará uma orientação a 
respeito dos principais defeitos apresentados pelos drives, com dicas 
sadias sobre manutenção preventiva e um tratamento especial para os 
disquetes. 


CBBS, UM QUADRO DE AVISOS COMUNITÁRIO 

O que é, na verdade, essa forma de comunicação entre usuários de 
microcomputadores? É essa a pergunta que Ricardo Weiss Muricy 
responde neste artigo, relatando como surgiram esses clubes e como 
funcionam. Ao final, uma relação dos CBBS existentes no Brasil e no 
exterior e a maneira de entrar em contato com eles. 
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om muita frequência, tem sido discutida a utilização isolada do 

microcomputador como sendo uma prática tendendo ao 

desaparecimento. Apesar de reconhecermos que o uso do 
teleprocessamento abre horizontes amplos para os que visam uma utilização 
mais intensa da máquina, consideramos tais generalizações radicais e 
perigosas, principalmente por deixar de lado os usuários que tem no 
conhecimento do hardware e da programação seus objetivos primeiros. 

Em recente edição, MS tratou de questões que envolvem o acesso as 
informações disponíveis nos serviços de bancos de dados. Hoje, nosso tema 
volta a ser a importância da comunicação para os possuidores de computadores 
pessoais. Desta vez, contudo, tratamos de uma relação mais informal: 
as associações de usuários. 

Estes clubes têm se multiplicado, visto serem uma opção barata e 
eficiente para os que querem intercambiar programas e conhecimentos práticos. 
Seus organizadores, verdadeiros operários de um hobby que nem sempre 
lhes traz retorno financeiro, encarregam-se de editar pequenos boletins, 
promover reuniões e “quebrar os galhos ” dos sócios menos iniciados. 

Também os organizadores dos CBBSs — outro tipo de associação cada vez mais 
procurada — não têm descanso, geralmente buscando, numa fase inicial 

de funcionamento gratuito, ganhar a experiência necessária para uma futura 
prestação comercial dos serviços. 

Um dos bons serviços que estes clubes e CBBSs oferecem hoje aos associados 
são os programas em arquivo, livrando-os das grandes digitações. A maior 
parte dos programas oferecidos são os ditos de “domínio público ”, isto é, 
publicados em revistas especializadas. Uns pedem permissão as 
“fontes” e mantêm os créditos do autor e da publicação; outros simplesmente 
vão abolindo esses “detalhes ”. 

A utilização destes programas públicos exige critério. O objetivo dos autores 
que se dispõem a publicar seus programas em revistas é disseminar o uso; 
não o abuso. Oferecer o serviço da digitação é uma coisa; tirar proveito 
comercial à revelia do autor é outra. Assimilar as técnicas de um programa, 
adaptar e melhorar é uma coisa; copiar e assumir paternidade é lamentável. 

Novidades em MS: inauguramos neste número as MICRO FICHAS, com uma 
tabela completa de conversão. 
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FAÇA ONVPAVAIVIO 
SUA EM IBM-PC 
[PJ SIS PAV/AR 0/0) VIA VUN ASR 





UM PRODUTO MICROTEC 
COM A GARANTIA DA 


INFORMÁTICA EMPRESARIAL LTDA. 


O MAIOR REVENDEDOR DE MICROCOMPUTADORES DE ló BITS DO PAÍS. 
Rua Sete de Setembro, 99 - 11.º andar - Tel: PBX (021) 224-7007 - CEP 20050 - Rio de Janeiro - RJ 





ESQUIRE 


unitron apII 


GRÁTIS 
CIRANDAO 








Na compra do conjunto 
profirsional e do módulo 
de comunicação você 
ganhao exclusivo software 
de comunicação com 
o projeto Cirandão 
da Embratel, 





INFORMÁTICA EMPRESARIAL LTDA. 


O MAIOR REVENDEDOR DE MCROCOMPUTADOREY (DE I6 BITY DO PAÍY. 


Rua fete de Setembro, 99 - |1.º andar. CEP 20050 RJ - Tel.: 24-/00/ 


Dou-lhe 














KH 


Dou-lhe uma: Pronta entrega! 
Dou-lhe duas: Atendimento profissional! 
Dou-lhe três: Melhor preço! 

Negócio fechado. 
Compumicro. O melhor em micro 
pelas melhores condições. 


Nexus 1600-PC2001- 
Microengenho 2-Unitron AP I 


INFORMÁTICA EMPRESARIAL LTDA. 


O MAIOR REVENDEDOR DE MICROCOMPUTADORES DE ló BITS DO PAÍS, 








Rua Sete de Setembro, 99 - 11.º andar - Tel.: PBX (021) 224-7007 - CEP 20050 - Rio de Janeiro - RJ « 








O sorteado deste mês, que irá ganhar uma 
assinatura anual de MICRO SISTEMAS 

é Orlando Rodrigues Pinto, do Rio de 
Janeiro, 


AOS USUÁRIOS DE RINGO 


É com imensa satisfação que novamente 
lhes escrevo, desta vez para parabenizá-los 
pelo projeto MICRO BUG. 

Possuidor que sou de um Ringo “ R-470"', 
ao digitar o MICRO BUG verifiquei, como 
é de seu conhecimento, que alguns códigos 
de caracteres do Ringo foram modificados, 
razão pela qual lhes escrevo para que infor- 
mem aos vossos leitores, possuidores do Rin- 
a que na implementação do comando E 
MICRO SISTEMAS nº 33, pág. 56), o 
valor que deve ser adotado no endereço 
7C79 deve ser F9 ao invés de EA. 

A modificação no teclado do Ringo em 
relação ao TK-85 implica em modifica- 
ções de comandos de chaveamento a saber: 





TK-85 RINGO 
SHIFT 3 SHIFT W 
SHIFT S SHIFT 3 
SHIFT E SHIFT D 
SHIFT 4 SHIFT T 
SHIFT D SHIFT E 
SHIFT G SHIFT 4 
SHIFT A SHIFT S 
SHIFT F SHIFT R 
SHIFT Q SHIFT 2 
SHIFT 1 SHIFT 1 
SHIFT 9 GRAPHICS 


Acreditando ter colaborado com os pos- 
suidores do micro Ringo neste excelente 
trabalho empreendido por MICRO SISTE- 
MAS, quero aqui deixar meus sinceros agra- 
decimentos pela oportunidade que me têm 
dado de aprender, com a publicação de tra- 
balhos verdadeiramente profissionais. 
Orlando Rodrigues Pinto 
Rio de Janeiro-RJ 


FORTRAN NO CP-300 


Gostaria de saber das possibilidades de 
rodar FORTRAN e PASCAL no micro 
CP-300 da Prológica: que periféricos seriam 
necessários para isso onde obter tal software? 
Jorge G. Larangeira 
Porto Alegre-RS 


De acordo com o nosso procedimento 
habitual, remetemos suas perguntas para o 
fabricante. Eis a resposta da empresa: 

“É possíval rodar FORTRAN e PASCAL 
no seu CP-300. Para tanto, você deve possuir 
o SM-300 o cartão Controlador-300 e os 
drives. Depois deve procurar em software- 
houses um programa compilador FOR- 
TRAN ou PASCAL. 


A Prológica realizou uma pesquisa entre 
software-houses e localizou programas 
FORTRAN nas seguintes casas: 

e MICRO BYTE — Rua Buenos Aires, 41 
— 3º andar, Rio de Janeiro. 

e MONK — Rua Augusta, 2.690 — 2º an- 
dar — Loja 318, São Paulo.” 

Sidnei Stifelmann 

Coond. de Produto /Marketing de CP'S 





USUÁRIO SOFREDOR 


Sou um dos milhares de usuários de um 
micro compatível com o TRS-80 modelo | 
e sofro vendo, a cada dia que passa, a quan- 
tidade de bons softwares desenvolvidos para 
o modelo 1ll. Até então, estou restrito a 
programas ultrapassados, sem poder desfru- 
tar de uma melhor planilha de cálculos, base 
de dados, enfim, de programas que.rodam 
nos compatíveis ao modelo Ill. 

Gostaria de que, se algum colega tiver 
conhecimento de dados para a conversão do 
Enhanced Visicalc, do Profile 1ll Plus e de 
programas similares que possam rodar nos 
compatíveis ao modelo |, os publicassem em 
MICRO SISTEMAS. 

Gostaria, também, de entrar em contato 
com os possuidores de micros compatíveis 
com o LNW 80 para troca de softwares espe- 
cíficos desenvolvidos especialmente para 
este micro. Meu endereço é: Caixa Postal 
239 — Cabo Frio, CEP 28900 — RJ. 

Mário Ramos Vieira Filho 
Cabo Frio-RJ 


A DEFESA DO “SUSPEITO” 


Fiquei estarrecido quando li na Micro 
Sistemas de fev/85 que a COMPUMAX 
MICROINFORMÁTICA faliu e levou o 
“suspeito” pacote Micro/DB. 

Gostaria imensamente de saber a fonte 
desta absurda notícia, que, além de inverí- 
dica, é intencionalmente maldosa. 

A única explicação plausível de nossa 
“desejada'” falência é que já estamos causan- 
do certa preocupação no mercado, depois 
dos excelentes resultados que conseguimos 
nos últimos meses. 

E quanto ao nosso produto, consultamos 
nossos clientes e concluímos que o nosso 
Sistema de Gerenciamento de Informações 
— Micro/DB foi qualificado de “suspeito” 
por causa das seguintes características: 

— SUSPEITO por falar portugués, en- 
quanto seus colegas de classe falam outros 
idiomas como inglés ou computés; 

— SUSPEITO por ser o mais amistoso 
de sua classe, possibilitando intimidade ime- 
diata com seus usuários, enquanto outros 
necessitam semanas de treinamento; 

— SUSPEITO por manipular tranquila- 
mente valores de zilhões enquanto outros se 
atrapalham já no primeiro bilhão; 

— SUSPEITO por não ser preconceituo- 
so, pois quando o Micro/DB entra para 
automatizar o escritório, todos põem a mão 
nele, desde a secretária até o executivo. 

E para dirimir dúvidas, convido os inte- 
ressados a confirmar estas características 
“suspeitas” de nosso best-seller, o Micro/ 
DB, em nossa sede na Av. Paulista, 1754/ 
145 (251-0471) ou em qualquer dos nossos 
clientes amigos. 

Walter Celaschi 
Diretor da Compumax 


Gostaríamos de nos desculpar perante a 
empresa Compumax e nossos leitores, 
deixando claro que a nota sobre a falência 
da empresa foi produto de uma informação 
errada levantada por nossa equipe, sem qual- 
quer segunda intenção. 


DESAGRADO 


A finalidade desta é registrar o meu desa- 
grado com a política de economia da firma 
MICRODIGITAL Eletrônica Ltda. 

Possuo um micro TIMEX 1000, com 


16K e impressora TIMEX 2040. Cansado 
do teclado de membrana e da baixa veloci- 
dade de transmissão de dados computador/ 
gravador, resolvi adquirir, em 10/10/84 um 
TK-85 também com 16K. 

Estranhei, porém, ao ligar o novo compu- 
tador com a impressora conectada e não 
conseguir que o computador funcionasse, 
Entrando em contato com a Assistência 
Técnica do fabricante do micro, fui informa- 
do de que deveriam ser feitas algumas madi- 
ficações no meu TK, modificações estas que 
não seriam feitas em garantia, mas mediante 
o pagamento de Cr$ 45 mil. 

Ora, por que o micro tem os comandos 
COPY, LLIST e LPRIINT no teclado se eles 
não funcionam? Porque a MICRODIGITAL 
não faz as modificações no TK-85 dos pos- 
suidores de impressora (uma percentagem 
ínfima dos proprietários deste micro) na ga- 
rantia, já que a firma optou por fazer econo- 
mia anulando aqueles comandos? 

Ao contrário da alegria que deveria ter 
sentido com a aquisição de um novo micro, 
fico triste por me sentir ludibriado num di- 
reito que, creio, devo ter. No entanto, não 
sei ainda o que fazer, se vender meu TIMEX 
conforme imaginava e continuar me sentin- 
do logrado ou passar o TK adiante e ficar 
satisfeito por não ter compactuado com um 
modo de agir que acho errado. 

Finalizando, gostaria de dizer que este é 
mais um motivo para eu apoiar a abertura 
do nosso mercado de microcomputadores 
para as firmas estrangeiras. 

João Henrique Pache de Faria 
Rio de Janeiro-RJ 


Caro João Henrique, aqui segue o posi- 
cionamento da Microdigital: 

“Gostaríamos de responder que o TK-85, 
fabricado pela Microdigital, possui uma In- 
terface para ser conectada a qualquer im- 
pressora paralela existente no mercado brasi- 
leiro como a Mônica, Grafix etc. 

Quanto à sua impressora, por se tratar de 
um produto importado, existem algumas 
modificações para funcionar no TK-85, o 
qual não foi feito para funcionar na impres- 
sora que você possui: apoiamos os produtos 
nacionais e não estrangeiros.” 

Ricardo Tondowski 
Relações Públicas 


TURMA DO COMMODORE 


Possuo um microcomputador Commo- 
dore 64 e um televisor Phillips cujo modelo 
é R/20€/310 e o número do chassi é KLB. 

Para que minha TV possa funcionar tam- 
bém no sistema de cores norte-americano 
(NTSC) e, consequentemente, meu compu- 
tador possa usar suas cores, eu precisaria de 
um cristal especial, o de número 7,159090 
(cristal de frequência dupla), que não consi- 
go encontrar na minha cidade. 

Quem souber onde pode ser encontrado 
o referido cristal, é favor escrever para o 
endereço abaixo: 

Rua Joaquim Lírio, 347 — Praia do Canto 
29.000 — Vitória/ES 

Usuários do Commodore 64: está na ho- 
ra de fundarmos um Clube para troca de ex- 
periências e de software! 

Maria Sylvia M. Abaurre 
Vitória-ES 





Envie suas correspondências para: ATI — 
Análiso, Teleprocassamento e Informática 
Editora Ltda. Av. Presidente Wilson, 
165/gr. 1210, Centro, Rio de Janeiro/RJ, 
CEP 20030, Seção Cartas/Redação 
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Com estes companheiros : 
e escola,eu passo de 
ano brincando. 4H 


Olha pai, você sabe que o maior sonho do pessoal 
da minha geração é ter um dos micros da Microdigital, que 
são os mais fáceis de usar. Eles são realmente fantásticos. 

Veja, por exemplo, o TK 85: ele pode me dar a maior 
força no estudo, tem centenas de PER feno disponíveis, Tre 85-16K - 
além de ter o preço mais acessível do mercado. 

Já o TK 2000 é incrível, pois roda o Multicalc, a 
versão Microsoft do Visicalcº, o programa mais famoso em 
todo o mundo. E pode intercambiar planilhas com 
computadores da linha Apple”. | 

O TK85 e o TK 2000 ajudam muito, tanto quem 
estuda como quem trabalha, servindo para cadastrar 
clientes, controlar estoques, acompanhar o orçamento 
familiar, fiscalizar a conta bancária, estudar matemática, 
estatística, e tudo o que você puder imaginar. 

Ah, compra um pra mim! Eu prometo que só vou 
brincar com ele quando acabar a lição. 

GRÁTIS 
- Na compra de um TK 85 você ganha um livro “Basic TK” ou “Curso 
de Jogos” e os programas de TKALC e TKMAN. 


- Na compra de um TK 2000 Il você ganha o livro “Conhecendo e 
Utilizando o TK 2000” e os programas Multicad e Fliperama. 


eMarca registrada do Apple Computer. 
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TK 2000 11-64 K 


MMICRODIGITAL 


computadores pessoais 








Filiada a ABICOMP preços sujeitos a alteração sem prévio aviso 





& Marca registrada da Visicorp. 








A imagem do usuário de computador fechado 
em seu laboratório hoje é folclore, e quem quer saber mais 
só tem uma saída: enturmar-se 


Vá procurar 





sua turma em um 
clube demicros 


ma comunidade de interesses 

comuns que pode chegar até 

o final do ano a centenas de 

milhares de pessoas não con- 
seguirá avançar satisfatoriamente em 
conhecimentos se seus interesses agirem 
isoladamente. O volume de informações 
necessárias para o melhor aproveitamen- 
to dos micros exige o intercâmbio entre 
os usuários. Em função disso surgiram 
os clubes e, mais recentemente, entida- 
des com estrutura comercial reunindo 
grupos que se identificam por seus 
equipamentos, aplicações específicas ou 
pelo simples gosto por jogos. Mas sem- 
pre com um objetivo comum, aprender 
mais, 


A partir de 1980, quando a Informá- 
tica começou a se desenvolver no país, 
com o surgimento dos primeiros micros 
nacionais, dezenas de clubes foram for- 
mados, ao lado de uns poucos já exis- 
tentes e que reuniam os pioneiros dos 
equipamentos pessoais, então importa- 
dos. Deles, muitos já não existem. E 
dentre os que sobreviveram, alguns 
estão tomando novos rumos, deixando 
de lado o caráter de introdutores ao 
sistema de processamento de dados para 
ocupar uma posição mais elevada: a 
de fórum para debates a respeito de lin- 
guagens, sistemas e aplicações. Mas para 
os usuários que estão começando ainda 
existem clubes, os cursinhos e a eventual 
iniciação oferecida por quem vende o 
equipamento, 


HOJE MICRO É VOLKSWAGEN 


Apenas para exemplificar a antiga 
função dos clubes, o médico Luís Ernes- 
to Pellanda, que fundou em novembro 
de 1979, em Porto Alegre, o Apple Clu- 
be do Brasil, lembra que o pessoal na 
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época mal conhecia um equipamento, às 
vezes o danificava por desconhecer 
praticamente o sistema de funcionamen- 
to. Em diversas ocasiões, ele próprio foi 
acordado de madrugada por um sócio 
de outro Estado para esclarecer dúvidas 
sobre o motivo de um micro não funcio- 
nar. E afirma que a situação hoje é 
diferente: 

— Agora o micro é um Volkswagen, 
qualquer um sabe fazer ele funcionar, 
bastando apenas ler o manual do fabri- 
cante. 

Por essa razão, Pellanda diz que a 
atividade dos clubes mudou um pouco. 
O dele chegou a reunir 120 sócios, nú- 
mero que está agora em torno de 50, 
apenas no Rio Grande do Sul. Em Por- 
to Alegre o pessoal continua se reunindo 
periodicamente, na segunda terça-feira 
de cada mês em um restaurante, onde o 
proprietário cede espaço para a instala- 
ção de um equipamento e a conversa 
informal. 

Se antes os sócios buscavam informa- 
ções elementares a respeito do funcio- 
namento das máquinas, quase todas 
importadas, hoje estão mais exigentes. 
Trocar pequenos programas é uma fun- 
ção cada vez mais esporádica. O tempo 
agora é utilizado em debates a respeito 
do hardware dos micros e de software 
ou uma aplicação que resulte em melhor 
aproveitamento dos computadores, já 
que boa parte do clube é formada por 
profissionais liberais que empregam o 
equipamento em suas atividades. 

Da mesma forma como em Porto 
Alegre, o núcleo do Apple Clube do Bra- 
sil do Rio já atingiu um estágio em que 
seus integrantes estão buscando infor- 
mações mais profundas e mantendo 
um relacionamento homem /máquina 
em nível mais avançado, garante Heitor 


Lira, seu presidente. Atualmente o clu- 
be reúne 70 sócios que pagam anual- 
mente 2,5 ORTN, dinheiro empregado 
em material para informar mensal- 
mente a respeito das reuniões. O núcleo 
do Rio funciona há cerca de três anos e 
foi criado por sugestão de Luís Ernesto 
Pellanda. Suas reuniões às vezes são 
frequentadas por sócios de outros nú- 
cleos, como de Brasília e Belo Hori- 
zonte. 

Em Santo André, município da Gran- 
de São Paulo, Walmyr Garbin criou há 
cerca de sete meses o Apple Magic Clube, 
que já reúne quase 30 associados. Eles 
contribuem com uma taxa mensal de 
Cr$ 30 mil, o que garante o direito de 
retirar dois programas pelo período de 
15 dias. Walmyr, que mexe com compu- 
tadores há dois anos e dá aulas de proces- 
samento de dados, diz que o clube, como 
é normal, está ainda enfrentando dificul- 
dades para melhor orientação dos asso- 
ciados sobre problemas técnicos. O 
Apple Magic dispõe de quase uma cente- 
na de programas, estoque ampliado 
constantemente. Além do empréstimo 
aos sócios, o clube também troca e co- 
mercializa programas. 

Na Microcomp, em São Paulo, uma 
loja de micros, funciona outro clube, 
voltado especificamente para usuários 
de equipamentos compatíveis com Ap- 
ple. Os sócios pagam uma taxa de 4 
ORTN para matrícula e 1 ORTN por 
mês, com direito a retirar três programas 
mensalmente, sendo dois aplicativos, 
que podem ficar com eles durante 30 
dias. 


COLOR, EM FASE DE EXPANSÃO 


Os clubes Color, talvez por serem in- 
tegrados por usuários que durante muito 
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tempo ficaram esquecidos no mercado, 
apresentam boa organização. É o caso 
de dois deles — Rio Color Clube e TRS- 
80 Color Clube — ambos do Rio, que 
agora estão em fase de fusão, formando 
6809 Color Clube, reunindo nada menos 
de 280 sócios cadastrados, que pagam 
mensalidades de Cr$ 2 mil, 

O mais forte deles é o TRS-80 Co- 
lor Clube. Francisco Corrêa, que o vi- 
nha dirigindo, lembra que quando co- 
meçou a usar seu micro importado da 
Radio Shack, passou a procurar alguém 
que tivesse equipamento similar para 
troca de experiências. O primeiro deles 
foi Alfredo Troncoso, de Campinas. Aos 
poucos foram surgindo novos interessa- 
dos em compartilhar os conhecimentos 
que cada um obtinha com seus equipa- 
mentos. Com o lançamento do Color 
64 da Novo Tempo, hoje fabricado pela 
empresa carioca LZ, e do micro da 
Codimex, foi crescendo o número de só- 
cios, que tende a aumentar mais ainda 
com o surgimento do CP-400 e do TKS- 
800, respectivamente fabricados pela 
Prológica e Microdigital. E diz: 


— Basta dizer que em 1984 foram 
vendidas 500 máquinas e a previsão da 
Prológica é negociar outras 10 mil até 
o final de 1985. 


Basicamente como em outros clubes 
com reuniões periódicas, no TRS-80 
Color os sócios trocam experiências, ti- 
ram suas dúvidas, promovem intercâm- 
bio de software e suporte básico. Fran- 
cisco Corrêa diz que precisa se afastar 
como diretor, passando a frequentá-lo 
apenas como sócio, pois prevê que com 
o incremento de associados não lhe so- 
brará tempo para a assistência que pres- 
tava, desde redator do boletim bimensal 
editado pelo clube até orientador para 
pequenos consertos. Corrêa, dono de 
uma vasta biblioteca de software para 
equipamentos Color, pretende dedicar 
mais tempo para aprimorar conhecimen- 
tos e mesmo comercializar seus produ- 
tos, pois acha que chegou também o 
momento de obter retorno financeiro 
para tudo o que investiu, numa ativida- 
de que a cada dia se torna mais profis- 
sional, 

O médico Diógenes Alvarenga dirigiu 
durante muito tempo o Rio Color Clu- 
be, também formado por usuários de 
equipamentos originais Color e dos com- 
patíveis nacionais. Reunindo-se mensal- 
mente, os sócios, que pagam uma taxa 
simbólica de Cr$ 2 mil por mês, discu- 
tem em um casarão de Botafogo, onde 
funciona uma clínica médica, novidades 
sobre software, trocam programas e su- 
porte básico. 

Mais recentemente o clube vem dedi- 
cando atenção especial para os sistemas 
de comunicação. Um dos associados 
mais ativos nesse movimento é o médico 
João Roberto Amim, criador do CBBS 
do Amin. Foi a forma similar de ativi- 
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dade entre um e outro que levou à fusão 
do Rio com o TRS num só clube, 

Em fevereiro, quando foram criadas 
as bases para o 6809 Color Clube houve 
a 1 Mostra de Usuários de Computado- 
res, realizada no Hotel Glória, no Rio, 
com a participação de quase uma cen- 
tena de pessoas. É os objetivos da nova 
agremiação são reflexos dos dois clubes 
que o antecederam. Os sócios com co- 
nhecimentos mais avançados continua- 
rão trocando idéias sobre hardware, blo- 
queios de máquinas e sistemas operacio- 
nais. Para os novos que forem chegando, 
garante Diógenes Alvarenga, haverá 
sempre quem lhes dê as primeiras no- 
ções a respeito de processadores de tex- 
to, gerenciadores de bancos de dados, 
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planilhas eletrônicas, programas de co- 
municação, temas que também não fal- 
tam durante o encontro mensal. 


CHAMANDO POR CAIXA POSTAL 


É o usuário que vive numa remota ci- 
dade da Amazônia? Ele ficará isolado, 
carente de informações sobre software, 
aplicativos e sistemas? Claro que não. 
Em função desse usuário e de outros 
residentes em pequenas cidades do in- 
terior, e mesmo em grandes capitais, 
existem os clubes com atividades por 
correspondência, chamados pelas caixas 
postais. E funcionam bem. 

Numa linha bastante informal, existe 
no Rio o Tiger Clube, voltado para a 
linha TRS-80; segundo Sérgio Macha- 
do, seu idealizador, o objetivo do Tiger 
é promover o encontro de usuários do 
CP-500, que desenvolvem programas e 
aplicativos isoladamente. É Machado 
quem diz como funciona o Tiger Clube; 

— É distribuído mensalmente um 
boletim onde são dadas valiosas infor- 
mações e dicas sobre novos programas, 
produtos, serviços e aplicações. O bole- 
tim está aberto aos associados para que 
possam publicar anúncios, artigos e co- 


Na Casa do Futuro, usuários e orientadores no laboratório 





mentários em geral. Existe até uma co- 
luna onde, através da publicação de 
fotografias, ficamos conhecendo os cole- 
gas. 

Funcionando à base de correspon- 
dência por caixa postal, o Tiger não co- 
bra mensalidade. Os associados colabo- 
ram como podem, até mesmo enviando 
selos para atender às despesas, que não 
são poucas, como correio e cópias xerox. 
O clube aceita programas inéditos para 
troca por outros de interesse do asso- 
ciado, sem despesas. 

O Applemaníacos de São Paulo é ou- 
tro que funciona através de caixa postal, 
reunindo atualmente mais de 100 asso- 
ciados por todo o Brasil, com idades 
entre 14 e 60 anos, que exercem as mais 





variadas profissões, nas quais nem sem- 
pre o computador é uma ferramenta de 
trabalho, Um clube em que os associa- 
dos se comunicam com muito humor e 
cada um deles utilizando um pseudôni- 
mo, ou nome de guerra, como prefere 
dizer seu presidente, o Capitão Gancho, 
No Applemaníacos não existe taxa de 
inscrição, apenas mensalidade de 1 
ORTN com vencimento no dia 15. 

E > bom humor não tira, aparente- 
mente, a seriedade do clube, que como 
benefício ao associado oferece uma bi- 
blioteca de manuais para utilitários 
(criados pelos associados), arquivo de 
software estrangeiro, disquetes com 
material específico para programação, 
tais como Double-Take, compiladores, 
sub-rotinas diversas etc. 

Os serviços oferecidos pelo Apple- 
maníacos têm preços variados, mas se- 
gundo o Capitão Gancho, menores 
que aqueles normalmente oferecidos por 
software houses. A mensalidade paga 
garante o recebimento de um boletim 
informando sobre as novidades nacio- 
nais e estrangeiras para o Apple; uma 
seção de perguntas e respostas sobre 
soft e hardware; artigos acerca de apli- | 
cativos muito utilizados como Magic (8) 
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VÁ PROCURAR SUA TURMA... 


Window, Visicalc, dBase II; classificados 
para venda, compra e troca de equipa- 
mentos e periféricos; dicas sobre formas 
de copiar programas bloqueados; críti- 
cas sobre programas, livros e equipamen- 
tos, entre outros. 


LÓGICA SINCLAIR NO CIRCUITO 


Quem tem um equipamento de lópi- 
ca Sinclair também não fica perdido, 
mesmo residindo em cidades distantes 
dos grandes centros. Para esses usuários 
funcionam diversos clubes, atendendo 
também por correspondência, na base 
da troca de informações e programas. 

Um exemplo de intensa biblioteca de 
software está no Micro Games, um clu- 
be sediado no município mineiro de 
João Monlevade, se bem que funcionan- 
do mais na base de troca ou venda de 
programas. Paulo Wagner, que dirige o 
Micro Games com Márcio Oliveira, in- 
forma que o clube tem hoje um acervo 
de 350 programas, importados e nacio- 
nais, resultado de compras e trocas, nú- 
mero que vai aumentando mensalmen- 
te. Fundado em dezembro de 1983, 
apenas no ano passado teve uma despesa 
de Cr$ 400 mil em selos, fitas e novos 
programas. Os associados do Micro Ga- 
mes, que nada pagam de mensalidade ou 
inscrição, podem trocar jogos em alta re- 
solução e utilitários com o clube ou ad- 
quirir, escolhendo em uma lista, dez 
programas por Cr$ 19 mil, sem outras 
despesas pelo correio. E Paulo Wagner 
garante que as encomendas são enviadas 
com segurança, por remessa registrada. 

Com uma listagem de aproximada- 
mente 800 sócios no Brasil e 350 no ex- 
terior, segundo seu presidente Joaquim 
Pedro de Oliveira Martins, funciona no 
município fluminense de Piraí o Grande 
Circuito Sinclair. Seus associados nada 
pagam e recebem um boletim cuja edi- 
ção é financiada pela venda de progra- 
mas desenvolvidos pelo clube. 

O Grande Circuito Sinclair não pro- 
move reuniões, trabalhando em sistema 
de caixa postal. Seu boletim contém 
informações a respeito de soft e hardware 
dos equipamentos, dicas, programas e 
uma seção de intercâmbio. 


LOJAS, PONTO DE ENCONTRO 


Outra espécie de ponto de encontro 


para proprietários de micros são as lojas. 


A Filcres, em São Paulo, do grupo da 
Prológica, promove reuniões aos sábados 
com usuários do CP-500. Eles frequen- 
tam ali há dois anos, comparecendo em 
média dez hobbystas, profissionais de 
várias áreas, a maior parte não ligados 
diretamente à Informática. 

Miguel Simão, engenheiro eletrônico 
há 20 anos, é um dos integrantes do clu- 
be da Filcres e lá chegou através de um 
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Diógenes Alvarenga, Presidente do Rio Color 
Clube 


amigo, passando, desde então, a se apro- 
fundar em conhecimentos de hardware 
e software. Recentemente os integrantes 
do grupo promoveram um curso de 
Assembler, com orientação dos próprios 
membros. 

No Rio, a Micromag, uma loja de 
equipamentos no centro da cidade, fun- 
ciona no mesmo esquema. Aos sábados 
os fregueses se reúnem para falar de no- 
vidades, programas e trocar jogos para o 


Color, num hábito que se repete desde" 


1983, lembra Edinho, gerente da loja, 
que faz questão de ressaltar que não é 
o encontro apenas de garotos, mas de 
gatinhas e coroas, que vêm até de São 
Paulo. 

Para Edinho, a reunião é boa para a 
loja e útil para os frequentadores, que 
ali conhecem novos programas e artigos 
importados, como light- pen, e chegam a 
participar até de improvisadas palestras 
sem ter que desembolsar qualquer im- 
portância a título de mensalidade. Ele 
lembra que há épocas em que aumenta o 
número de frequentadores, como no in- 
verno. “No verão o pessoal foge para a 
praia, mas a média de frequência fica 
em torno de 10 a 15 pessoas por sába- 
do”, diz Edinho. 

Reunindo em São Paulo usuários de 
Apple e CP-500, há um ano existe o 
W. F. Soft Clube, mantido pela loja do 
mesmo nome, que vende micros novos 
e usados de todas as linhas. Mediante 
uma taxa inicial de 2 ORTN e mensali- 
dade de 1 ORTN, o associado passa a 
ter o direito de retirar mensalmente cin- 
co programas, entre jogos e aplicativos. 
Eles podem permanecer com o associa- 
do durante 30 dias. Caso haja interesse 
de posse definitiva, a W. F. faz a cópia 
para o associado. O acervo do clube con- 
ta com 200 programas de cada uma das 
linhas, muitos deles desenvolvidos pela 
empresa, que atua também como 
software-house. Outros são de autoria 
de associados e os restantes comprados 
pela W. F. com a arrecadação de mensa- 
lidades. 


ESTÃO CHEGANDO MAIS 


Instalada numa ampla casa do Hu- 
maitá, bairro de Botafogo, no Rio, fun- 
ciona a Casa do Futuro, reunindo ativi- 
dades de lazer com outras de aspecto 
profissional. Ela possui dois laboratórios 


onde estão instalados 23 micros e um 
mini Cobra 530. Seu esquema é pratica- 
mente o mesmo de um clube. Parte dos 
frequentadores é formada por sócios 
que pagam uma taxa para utilização de 
hardware ou hardware /software em pes- 
quisa, desenvolvimento de programas ou 
análise crítica com assistência de ana- 
listas de sistemas, 

Na área de cursos, oferece opções pa- 
ra introdução ao processamento de da- 
dos, BASIC para crianças e BASIC 
avançado, análise de sistemas, lingua- 
gens, introdução a CP/M, DOS, Unix, 
dBase II e automação de escritórios pa- 
ra executivos e secretárias. 

Na área estritamente comercial, a Ca- 
sa do Futuro presta serviços para empre- 
sas rodando software para folha de pa- 
gamentos, controle de contas a pagar e a 
receber, cadastramento e mala-direta, 
Além disso possibilita a comercializa- 
ção de programas de associados ou não, 
funcionando como uma espécie de 
software-house. E já está fornecendo 
um curso de BASIC por vídeo-cassete. 
Outros serviços estão sendo organizados, 
como cursos para pequenos grupos de 
uma só empresa, treinamento de pessoal 
na área de introdução e processamento, 
a de formar técnicos para a manu- 

dies de equipamentos. 

parte desse lado comercial, a Casa 
do Futuro funciona mesmo como um 
clube, onde os frequentadores encon- 
tram espaço para trocar idéias, progra- 
mas, dispõem de biblioteca para aumen- 
tar seus conhecimentos, de livraria e loja 
de suprimentos, tudo isso com assistên- 
cia adequada, informam Gilberto Mala- 
mut e Lia Taliberti, diretor e uma das 
orientadoras, respectivamente. 


Praticamente na mesma linha da Casa 
do Futuro do Rio, está funcionando em 
São Paulo o Clube do Micro, criado com 
o objetivo de atender, também, àqueles 
que não podem ou não querem investir 
na aquisição de um equipamento. Mauro 
Costa Loureiro, gerente da empresa Em- 
brasoftware, que mantém o Clube do 
Micro, diz que lá o usuário terá oportu- 
nidade de utilizar o computador por um 
preço acessível, operando o sistema com 
seus próprios disquetes, em forma de 
time-sharing. 

Para quem está se iniciando na Infor- 
mática, o clube mantém cursos de intro- 
dução ao processamento de dados. Para 
os já iniciados, há cursos de Magic 
Window, dBase Ne Visicalc, entre ou- 
tros. O clube está aberto a pessoas físi- 
cas e jurídicas, com uma taxa de inscri- 
ção para ter direito a um título e co- 
brando mensalmente uma taxa de manu- 
tenção, permitindo o uso dos equipa- 
mentos por duas horas diárias. A cada 
hora excedente o associado paga uma 


quantia extra. Como vantagem, além Aa 
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Mesas para terminais 
de vídeo 


“2 449.850 





e Fabricação própria 
e Cores discretas 

e Desenho moderno 
e 5 modelos 





Conosco você encontra também, tudo o mais que 
precisa em vídeo-game, som, telefonia, 


das melhores marcas e procedências, e mais: 


VÍDEOS 


e Transcodificação todos os sistemas 
º Fitas: VHS - BETA-U-MATIC e para limpeza de cabeça 
e Baterias p/2e 8 hs. 















COMPUTADORES 
e Suprimentos 


e Periféricos 
e Impressoras 








e Drives e ||uminadores 
º Placas de Expansão Interfaces 3 Sat po extensão p/câmeras 
e Cabos olsas p/câmeras e vídeos 





e Telão 











e Acessórios nacionais e importados 
e Suporte p/ TV teto ou parede 


e Curso de inglês em vídeo-cassete 
e Serviço expresso remetemos para todo Brasil 






BTC” 2001 Ss & ALTA TECNOLOGIA 


BRASILTRADE CENTER 


Av. Epitácio Pessoa, 280 (Esq. de Visconde de Pirajá), Ipanema - Rio de Janeiro - CEP 22471 - 259-1299 
Rua da Assembléia, 10 - Loja 112 (Ed. Cândido Mendes) Rio de Janeiro - (021) 222-5343 
Av. das Américas, 4790 - Sala 615 (Centro Profissional Barra Shopping) Rio de Janeiro - 425.048: 
TELEX (021) 30212 BTCP 
Fábrica: Rua Silva Vale, 416 - Cavalcanti - RJ - Tel.: (021) 592-3047 


VÁ PROCURAR SUA TURMA... 


Os clubes e empresas citados nesta reportagem podem ser contatados por 
endereço, telefone ou caixa postal, que se seguem: 


SÃO PAULO 


Clube do Micro — Rua Cardoso de Almeida, 23, conjunto 74, CEP 05013. 

Filcres — Rua Aurora, 165, telefone 223-1466, CEP 01209, 

Núcleo da Sharp — Telefone 211- 7022, Ramal 404. 

W. F. Soft Club — Rua Ministro Godoy, 283, telefone 263-0039, CEP 

05015. 

e Apple Clube Microcomp — Av. Pedroso de Morais, 1.234, telefone 814-7623 
e 815-7481,CEP 05420. 

e Clube dos Applemaníacos — Caixa Postal 54.131, CEP 01296. 

e Apple Magic Clube — Rua São Camilo, 21, Santo André, CEP 09000, tele- 

fone (011) 447-9034. 


RIO DE JANEIRO 


Apple Clube do Brasil (Heitor Lira) — Telefone 285-4350 (à noite). 

TRS Color Micromaq — Rua Sete de Setembro, 92/106, telefone 222-6088. 
6809 Color Clube (Diógenes Alvarenga) — Telefone 226-6786. 

Casa do Futuro — Rua Macedo Sobrinho, 46, Botafogo, telefone 266-3447. 
Grande Circuito Sinclair — Caixa Postal 28, Piraí, CEP 27200, RJ. 

Tiger Clube (Sérgio Machado) — Caixa Postal 23.095, Rio de Janeiro, RJ. 


RIO GRANDE DO SUL 


e Apple Clube do Brasil (Ernesto Pellanda) — Telefone (0512) 21-9203 e 
23-0577. 


MINAS GERAIS 


e Micro Games (Paulo Wagner) — Av. Getúlio Vargas, 4.726, CEP 35.930, 
João Monlevade, MG. 





SOFTWARE 


novas fitas com 
emocionantes para você! 


PARA EQUIPAMENTOS COM LÓGICA SINCLAIR 
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Totalmente mais 
gráfico e trac ae sonal dos 
acompanhado 109 
de livro de hondi ado em 
instruções, com nova e 
diagramas, brilhante 
tabelas etc. Vbaçia 

mais: 
PINTOR PATRUL HA 
MALUCO e spend 
O DESAFIO DA PÁNIC 
GALINHA. (inline = sonprizados) 





[] Micro Sistemas ... 


GRÁTIS! 6 NÚMEROS ATRASADOS. 


Preencha um cheque nominal À ATI Editora Ltda., e envie 
para: Av, Presidente Wilson, 165/Grupo 1210, Centro, Rio de 
Janeiro, RJ, CEP 20,030 — Tels.:(021) 262-5259 e 262-6306. 
R. Oliveira Dias, 153, Jardim Paulista, São Paulo, SP, CEP 
01433 — Tels.: (011) 853-3574 e 853-3800. 

Seu recibo será enviado pelo Correio. 


Assinatura Anual: 


do equipamento, estão disponíveis qua- 
se 100 opções de software rodando em 
sistemas DOS e CP/M, 


CONTATANDO POR MALA-DIRETA 


Outra forma de enturmar os usuários 
é desenvolvida pelas fábricas, que têm 
seus próprios clubes, como a Prológica, 
a Microdigital e HP e a Sharp, entre ou- 
tras, funcionando por sistema de mala- 
direta, em que os clientes recebem todas 
as informações sobre novidades em ter- 
mos de software e periféricos para me- 
lhor utilização dos equipamentos. 

Em São Paulo há ainda a Compucen- 
ter, uma empresa que organiza cursos 
diversos na área da Informática. Não se 
pode dizer que ela tenha um clube, mas 
de alguma forma ajuda os usuários de 
micros. Os interessados se inscrevem em 
sua lista de associados e passam a rece- 
ber gratuitamente um jornalzinho cha- 
mado “Ábacus”, que publica informa- 
ções gerais acerca do assunto. O Clube, 
denominado Clip, não promove encon- 


tros ou reuniões, El 


Texto: Beni Lima Pereira 


pe GARANTA 


TODO MES! 


ASSINE HOJE MESMO E RECEBA GRATUITA- 
MENTE 6 NÚMEROS À SUA ESCOLHA A PARTIR 
DO Nº 20. PREENCHA O CUPOM ABAIXO (OU 
UMA XEROX, CASO VOCÊ NÃO QUEIRA CORTAR 





CEP. “Estado 
Cr$ 50.000,00 





O computador é uma maquina fantástica que 
trouxe muitos benefícios ao homem. No en- 
tanto, para quem tem que ficar sentado diante 
de um terminal de video por horas a fo, o com- 
putador está gerando alguns problemas. 
Manter a vista focada muito tempo em carac- 
teres pequenos e luminosos, além de preju- 
dicara 
visão, 
cansa, 
causa 

+ dor-de- 
cabeça 
eirrita- 
ção, 
Para 
quem 
usa SexilSs comuns então, os efeitos aumen- 
tam por causa dos reflexos criados nas lentes. 
Agora, todos esses problemas têm uma solu- 
ção. São os óculos Videolux das Óticas Flumi- 
nense. Os óculos Videolux, além de possui- 
rem lente anti-reflexo, têm uma composição 


especial a E 












que filtra 
a lumino- 
sidade 
prove- 
niente 
ii do termi- 
HORA nal, au- 

| mentan- 
do a nitidez dos caracteres e proporcionando 
maior descanso paraasua vista. 

Existem 3 tipos de lentes diferentes, uma 
para cada tipo de terminal. 

Os óculos Videolux podem ter ounão grau e 
são encontrados em modelos masculinos e fe- 
mininos. À venda emtodas as filiais das Óticas 
Flumi- 
nense, 

os óculos 
= Videolux 
farão 
VOCÊ 
chegara 
última 
hora do 
seudia 
de trabalho se sentindo muito a 
Proteja-se com os óculos Videolux. 


ÓCULOS E 
VIDEO 


Fa Óticas 
7 fuminense 


Seus olhos merecem. 


Niterói: Rua da Conceição, 36 € Castelo: Av, Franklin Roosevelt, B4 

& Avontda: Av. Rio Branco, 177 €Copacabana: Av. NS. de Copaca- 
bana, 1058€ Ipanema: Rua Visconde de Pirajá, 287 € Fátima: Rua do 
Riachuelo, 247 & Madureira: Av. Min, Edgar Romero, 91 & Tijuca: Rua 
Conde do Bonfim, 214 “Saens Pena: Pça. Sagrns Pena, d5. 





HORA 
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Microcraft 
entra nos 16 Bits 


Depois do sucesso do Craft ll, 
compatível com Apple, a Micro- 
craft investe agora na linha 16 bits 
lançando o Craft XT, compatível 
com à modelo XT do PC da IBM, 
O novo equipamento possui me- 
mória inicial de 255 Kb de RAM, 
podendo expandir-se até 512 Kb 
através de uma placa que a Micro- 
craft também já colocou no mer- 
cado, O Craft XT possui oitoslots, 
sendo um para placa de vídeo, ou- 
tro com três saídas na mesma pla- 
ca (joystick, serial e paralela), & Os 
outros seis disponíveis pára ex» 
pansão. Em sua configuração bá- 
sica o Craft XT vem com UCP 
com 256 Kbytes de RAM, vídeo 
de fósforo verdo e dois drives 
para disquetes de 5 1/4”, com op- 
cional para Winchester, & seu pre- 
ço deve ficar em torno de 1.000 
ORTN. A idéia da Microcraft é 
manter seu equipamento à um 
preço abaixo dos concorrentes a 
exemplo do lançaménto do Craft 


HE, pois segundo Celso Tanaka, ge- 
rente comercial, a empresa inves- 
te sempre pensando no futuro. O 
Craft XT foi desenvolvido em 
têémpo recorde, três meses, € O in- 
vestimento foi de 1 bilhão e 200 
milhões de cruzeiros, Serão pro- 
duzridas entre BO e 80 unidades 
por mês, 

Outra novidade da Microcraft 
é o Craft AT, que na verdade é o 
próprio Craft Il Plus com novo 
design, memória inicial de 64 Kb, 
já trazendo embutidos controla- 
dor de disco, placa CPÍM, fonte 
que suporta Winchester e um dri- 
vê, O AT possui três UCPs (6502, 
BOA e 8035). Se o usuário for 
comprar todos Esses acessórios 
para incorporar do Craft IL seu 
Custo será de aproximadamente 
10 a 12 milhões de cruzeiros, en 
quanto o modelo AT custa por 
volta de Cr$ 8 milhões de cruzei- 
ros, 


odems da Tropical 


à Tropical Sistómas Lida. está oferecendo os seguintes mo- 
dems: Banda Base TS = 19200:e TS = 300. 0 TS — 19200 ope. 
ra Sincronamente, nos modos duplex e semi-duplex em ligações à 


quatro fios & semi-duplex a dois fios na velocidade de nté 19,200 
BPS. O TS — 300 é um modem assíncrono e analógico destinado 
à transmissão e recepção de dados binários em linhas privativas 
p/ou redo comu tada. Este modelo opera até 300 BPS, 

O endereço da Tropical &: Av. Antônio Abraão Caran, 430, 
3º andar, Bedo Horizonte = MG, CEP, 30000, tel.: [0311 4471-1636, 





Os usuários de micros da linha 
TRAS 80 Color, como o Color 64 e 
o CP 400 já contam com a interfa: 
ce RS 232-€ embutida na configu- 
ração básica, Isso diminui conside- 
ravelmente o custo necessário 
para se ligar as comunidades, À 
LZ Equipamentos Elstrônicos 
aconselha inclusive que O usuário 
adquira um modem que possa 
operar em várias velocidades dife- 
rentes, tanto para transmissão 


Area Gráfica 


Depois de lançar o VersaCad, 
sistema que permite a utilização 
de técnicas de Computer Alded 
Drafting, a Comicro Migrocom- 
putadores coloca agora no mer- 
cado mais dois produtos volta- 
dos para a área gráfica. São eles 
uma mesa digitalizadora e um plot- 
tor. & mesa modelo PD 1030 que 
está sendo comercializada pela 
Comicro é de fabricação da STI 
— Sistemas de Telecomunicações 
e Informática, e pode ser ligada 
a qualquer computador através 
de interface serial AS 232-C, De- 
senvolvida para ser utilizada em 
sistemas de médio e pequeno por- 
te à mesa digitalizadora PD 71030 
pode ser ligada à micros das linhas 
Apple e PC e tam como principal 
aplicação a entrada de dados grá- 
ficos. O plorter lançado pela Co- 
micro foi desenvolvido pela Digi. 





IRS Color facilita 
acesso a comunidades 


Segurança com uma só câmera 





quanto para recepção, o que pos- 
sibilita também o uso do sistemãá 
Videbtexto. Ainda para os usuá- 
rios cesso linha, a Micromag e a 
Lº comercializam um software 
de origem amiéricana que permi- 
te à comunicação com aquelas co: 
munidades, bem como com o CB- 
BS do Amim, que funciona em sis- 
tema semelhante, ciairamente, das 
20h às 24h, em sistema Bell, palo 

telefone (021) 2456-2938, 


em Expansão 


con e se encontra disponível nos 
tamanhos 41 e AZ, ambos com 
uma pena. À ligação do plotter 
com os sistemas de computador 
é feita também através de inter. 
face R5 232-C. Para utilização tan- 
to da mesa quanto do plotter são 
necessários programas de suporte 
com rotinas específicas para O uso 
desses equipamentos, Para isso a 
idéia da Comicro é de comercia- 
lizar sob a forma de pacote com- 
pisto o microcomputador de 16 
bits compatível com PC da IBM, 
o programa VersaCad, que possui 
as rotinas necessárias, a Mesa E O 
plotter. So vendidos separadamens 
te O preço da mesa digitalizadora 
é de 305 ORTN, e o plotter custa 
1.100 ORTN. Outras informações 
podem ser obtidas na própria Cos 
micro pelo tel.: (011) 853-2273 
São Paulo. 





O Centro de Informática Micromag, que no Rio representa a Ford. 


Filtros 


de linha 
JG 


A JG Eletrônica, desde 1980 
suprindo as necessidades da indús- 
tria de informática nacional e es- 
trangeira, coloca agora ao alcance 
dos usuários de microcomputado- 
res e periféricos a solução para o 
problema da Interferência de Rá- 
dio Frequência (IRF). 

Se o seu micro apresenta com- 
portamento por vezes estranho, 
“congelando”' o vídeo ou “rese- 
tando'' espontaneamente, você 
provavelmente estará sendo víti- 
ma de IRF causada por transien- 
tes e comutações na sua rede de 
alimentação, devido a outros equi- 
pamentos a ela ligados. Da mesma 





forma, o seu micro estará certa- 
mente causando interferência em 
outros aparelhos, tais como televi- 
sores e equipamentos de som e de 
radioamador. De fácil instalação, 
entre o equipamento e a rede de 
alimentação, e de eficiência com- 
provada, os filtros de linha JG es- 
tão disponíveis em vários mode- 
los, com capacidade variando des- 
de 1 Aaté 30 A. 

Escreva ou telefone solicitan- 
do catálogos ou detalhando o seu 
problema. O endereço da JG Ele- 
trônica é rua Braga 18, CEP 21011, 
Rio de Janeiro — RJ,e o telefone 
é (021) 280-6538. 


Transbsc 3 da Scopus 


A Intertec informa que lançou no mercado mais uma versão, a Sco- 
pus, para o Transbsc 3, que segundo seu gerente de Desenvolvimento, 





Jogos para 
o CP-400 Color 


Mais 54 jogos estão disponíveis no mercado para 05 usuários do CP- 
400 Color, através de 18 fitas lançadas recontemento pela Kristian Ele- 
trônica Ltda, Cada fita vem com três jogos e entre as novidades estão 
Zaxxon, Demon Seod e Roboty; Patrulha Lunar, Cave Hunter e Músi- 
cas Espaciais; Tennis, B'Ball e Demon Dancer; Xadrez, Damas e Black- 
jack e Packetman, Gobblar e Scarfman, Outras informações podem ser 
obtidas na Rua Gonzaga Bastos, 112 ou pelo telefone (021) 268-8249, 


tica, de São Paulo, está promovendo o lançamento do equipamento de 
segurança para condomínios denominado CSTV, A empresa informa 
que os dez primeiros condomínios interessados receberão a visita de en- 
genheiros da Fotótica para instalação, em caráter de experiência, por 
dez dias, daquele equipamento. 

No CSTV é empregada uma câmera de TV na portaria dos condomí- 
nios E Os monitores são os próprios aparelhos de televisão de cada apar- 
taménto, operando num canal previamente determinado. À instalação 
tem seu custo dividido em cinco parcelas, sem juros, À Micromag tam- 
bém desenvolve outros projetos do segurança eletrônica para residências 
& empresas. Outras informações na Rua Sete do Setembro, 92, loja 106, 
telefone (021) 2226088. 
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Ellis Feigenblatt, apresenta duas inovações: aumento da taxa de trans- 
missão de dados e versão movida a interrupção, Com a versão Scopus, 
em 4800 bps, é possível avançar para a transmissão de 16 Kb por minu- 
to. Segundo Ellis, a versão movida a interrupção também é inédita, pois 
a comunicação entre o micro e o mainframe não sofre alteração quando 
o primeiro está acessando um disco. 


falam português! 





Agora, os [BM PC e Compatíveis 








Edisa Entrando em CAD 


Depois do contrato para transferência de tecnologia dos siste- 
mas HP-3000, a Edisa pretende firmar um novo acordo com a 
Hewlett Packard para adquirir tecnologia na área de CAD (proje- 
tos assistidos por computador). Já está sendo examinado na Se- 
cretaria Especial de Informática projeto da Edisa para fabricação 


de três sistemas de CAD: ED-902, ED-920 e ED-950, além de um 

sistema para desenvolvimento de software e hardware para mi- 

crocomputadores. Para a produção desses equipamentos estão 

sda investimentos de aproximadamente 2 milhões e 700 mil 
ares. 

A Edisa fechou o ano de 84 com um faturamento de Cr$ 43 
bilhões e 500 milhões de cruzeiros, e para este ano os planos da 
empresa são de aumentar em 48% este valor,. com os microcom- 
putadores representando cerca de 80% do total a ser faturado. 





Nova Oportunidade 
em Informática 


As pessoas com deficiência visual têm agora uma nova oportunidade 
na área de Informática. Trata-se do Audiodata, um sistema inédito de- 
senvolvido por Assis Moacir Duch, 37 anos e cego desde os cinco anos 
de idade. Acoplado a um terminal de dados ou a um microcomputador 
do tipo CP-500, da Prológica, o Audiodata transforma os números, le- 
tras e sinais gráficos em notas musicais. O sistema é composto basica- 
mente por uma família de 34 sinais em escala musical natural. O Audio- 
data pode ser fabricado a um custo de cerca de Cr$ 300 mil cruzeiros e 
é facilmente adaptável a qualquer sistema de dados. O sistema pode ar- 
mazenar até oito tabelas de códigos de entrada, entre as quais os siste- 
mas ASC Il, o Ebcedc da IBM e o TTY, comum aos telex. A Embratel, 
que deu apoio a Assis para o desenvolvimento do Audiodata, está reali- 
zando em conjunto com a Secretaria de Educação de São Paulo o pri- 
meiro curso para deficientes visuais com o sistema Audiodata, 


À PC Software e Consultoria criou, para seu micro 
da linha IBM PC, ABC. A maneira mais fácil, rápida 
e iza de escrever, 

ABC é um poderosíssimo processador de textos, 
com todos os recursos dos melhores programas 
do gênero no mundo. Negrito, subscrito, sobrescrito, 
paginação. automática, ad“ notas de pé-de 
página e muito mais. 

BC é compatível com Lotus 1-2-3, Visicale, 
Supercalc e dbase Il. E facílimo de usar. Os principais 
comandos são acessados por 
meio de uma única tecla. E você 
recebe ainda um “Tutor” e disco 
para praticar o manuseio do ABC. 

Mas, o melhor de tudo é que 
ABC fala sua língua. Com cedilha, 
acentos e todo o resto, no vídeo, 
impressora ou máquina de 
escrever eletrônica. 

E o ABC tem ainda todo 
o suporte da PC, a empresa de 
maior experiência em treinamento, 
consultoria e desenvolvimento 
e sortware para compatíveis 


com IBM PC. 


PC Software e Consultoria Ltda. 
Almirante Barroso, 91 Gr. 1102 - Rio 
Tels.: (021) 220-5371 e (021) 262-6553 


Repres. em S.P.: Execplan 

Rua Frei Caneca, 1407 - 10º andar 
CEP: 01307. 

Tel.: (011) 284-0085 
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Lentes protegem contra 
a luz dos monitores 


As Óticas Flu- 
minenses coloca- 
ram recentemen- 
te no mercado os 
óculos Vídeolux, 
criados especifi- 
camente para 
quem trabalha 
em terminais de 
computadores, 
As ientes, desen- 
volividas pelo 
Centro de Estu- 
dos da American 
Optical, prote- 
gem os olhos, evi- 
tando a fadiga vi- 
sual tão comum às pessoas que tra- 
balham à frente de computadores. 
As lentes variam de acordo com a 
cor de cada monitor, sendo forne- 
cidas em três tons e adaptáveis a 





qualquer g:au, Outros esclareci- 
mentos poderão ser obtidos na 
Rua Tenente Possolo, 33, Rio, te- 
lefone (021) 224-3377. 





Novidades da SID 





Os microcomputadores SID da 
série 3000 já podem operar como 
terminais de entrada de dados. A 
empresa está colocando no merca- 
do o software STG — Sistema de 
Transcrição de Dados, desenvolvi- 
do pela Minimicro. A comerciali- 
zação do STC é feita pela própria 
SID e o programa está sendo ofe- 
recido em disquetes de 8 ou de 
5 1/4'* pelo preço de 50 ORTN, 

E os terminais de caixa auto- 
mática SID 1600, conhecidos dos 
clientes do Bradesco e dos bancos 
que compõem o 24 Horas, agora 
falam. Foi incorporado a essas 
máquinas um dispositivo de orien- 
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tação por voz que é acionado pelo 
programa aplicativo do computa- 
dor central toda vez que um sen- 
sor detectar a aproximação de 
uma pessoa. O novo dispositivo 
incorporado aos terminais de cai- 
xa automática pode reproduzir 16 
frases. Ainda na área de automa- 
ção bancária e automação comer- 
cial, a SID colocará em operação 
experimental em meados do ano 
seus terminais ponto de venda, O 
projeto do terminal foi concebido 
com base na idéia de modularida- 
de, seguindo parâmetros definidos 
pela Associação Brasileira de Au- 
tomação Comercial. 


O CBBS da BBS 


A Biblioteca Brasileira de Soft- 
ware, que funciona em São Paulo 
prestando serviço de aluguel de 
programas, está inaugurando o seu 
CBBS (Computer Bulletin Board 
Service). Além da comunicação 
entre seus usuários, o CBBS possi- 
bilita também a utilização dos 
programas que constam em seu 
banco de dados. Este banco é ali- 
mentado principaimente com pro- 
gramas de domínio público e, se- 
gundo o gerente da BBS, mensal- 
mente deverão ser colocados no 
banco de dados seis novos progra- 
mas. Inicialmente o CBBS conta 
com cerca de cem programas para 
as linhas Apple e TRS-80 que es- 


tão armazenados em um Apple 
com dois drives que funciona com 
um operador para quando é neces- 
sária a troca de disquetes. O aces- 
so ao CBBS pode ser feito através 
do mesmo kit de comunicação 
para acesso ao projeto Cirandão, 
da Embratel. Inclusive a própria 
BBS já comercializa esse kit que 
é composto pela interface RS 232, 
o modem e o software que servirá 
para ambos os bancos de dados. A 
Biblioteca Brasileira de Software 
fica na Av, Brigadeiro Faria Lima, 
1.390 Cj. 82 Jardim Paulistano, 
São Paulo e os telefones são: 
(011) 8136407 e 210-1251. 


Administração de Materiais 


A Niacon Informática, empresa de consultoria, treinamento e de- 
senvolvimento de sistemas, está colocando no mercado o Diaplan — Sis- 
tema de Administração de Materiais. O sistema foi desenvolvido em um 
microcomputador da linha Apple podendo ser adaptado para micros de 
outras linhas ou para equipamentos de maior porte. O Diaplan realiza 
controle de estoque, de entrada e saída de produtos e de compromis- 
sos financeiros por dia e por fornecedor, podendo ser aplicado nas áreas 
de engenharia de produtos e de suprimentos, entre outras, Maiores in- 
formações podem ser obtidas na própria Diacon pelo tel,: (011) 572-6168, 


São Paulo. 


Miniventiladores Arno 


A Arno Rotron Equipamentos 
Elétricos possui uma grande varie- 
dade de ventiladores de dimensões 
compactas para utilização em cir- 
cuitos eletrônicos. Os miniventila- 
dores podem ser utilizados em 
computadores e periféricos, copia- 
doras, aparelhos de áudio, de mi- 
crofilmagem e de telecomunica- 
ções, entre outros. Entre os mi- 
niventiladores desenvolvidos espe- 
cialmente para micros e minicom- 


putadores estão os da linha VTA: 
Alto Fluxo, Super Fluxo, Extra 
Silencioso, Ultra Silencioso; e o 
Motor Ventilador Axial Muffin 
XL. Outro produto da Arno Ro- 
tron é o motor síncrono MF, de 
pequeno porte, que pode ser usa- 
do em drives para o acionamento 
de disquetes. Informações sobre 
os produtos da Arno Rotron po- 
dem ser obtidas pelos tels.: (011) 
273-1122 ou 273-6725. 


A Remington colocou no mercado sua li- 
nha de produtos para a área de Informática. 
Entre estes está o sistema de processamento 
de textos, com capacidade de composição, 
edição e reprodução. O sistema é composto 
por um monitor de vídeo, uma unidade cen- 
tral de processamento com até dois disque- 
tes de 5 1/4” e um terminal Remtronic 2000 
T. Este último também em lançamento reúne 
em um só equipamento as características de 
impressora com “qualidade carta”, máquina 


de escrever eletrônica e um terminal para co- 
municação com computadores através do pro- 
tocolo RS 232-C, Outra novidade é a impres- 
sora de margarida IM 217, com “qualidade 
carta”, para ligação a microcomputadores 
através de interface serial (RS 232-C) ou para- 
lela (Centronics). Na lista de novos produtos 
da Remington figuram ainda uma máquina de 
escrever eletrônica REMTRONIC 2400, com 
2,4, 8e 16 Kbytes de memória; e o terminal 
editor de textos. 


Congresso da 8. B. CC. 


O V Congresso da Sociedade Brasileira de 
Computação e a XI Conferência Latino Ame- 
ricana de Informática vão se realizar este ano 
de 20 a 27 de julho, na Universidade Federal 
do Rio Grande do Sul, em Porto Alegre. Até 
o próximo dia 15 a organização do Congresso 
estará recebendo os trabalhos dos autores in- 
teressados em participar do IV Concurso de 
Trabalhos de Iniciação Científica (para estu- 
dantes de gradução); do Seminário Integrado 
de Software e Hardware, e do Il Simpósio de 
Concepção de Circuitos Integrados. Os traba- 
lhos destes dois últimos serão divididos em 
duas categorias: Comunicação Técnica, resu- 
mcs de até duas páginas apresentando resul- 


tados recentes de trabalhos de pesquisa e de 
aplicações; e Artigo Técnico, com um máxi- 
mo de 15 páginas apresentando experiências 
e avanços relativos à área de Informática. A 
indicação da categoria na qual o trabalho 
se enquadra deverá ser feita pelo próprio au- 
tor na carta de encaminhamento, Esta deverá 
ser enviada a Ricardo Augusto Reis, Departa- 
mento de Informática e Pós Graduação em 
Ciência da Computação da Universidade Fede- 
ral do Rio Grande do Sul, Caixa Postal 1501 
— CEP 90000 Porto Alegre. Outras informa- 
ções podem ser obtidas pelo tel.: (0512) 
21-8499, 





A loja paulista Sacco Computer Sto- 
re, que fica na Alameda Gabriel Montei- 
ro da Silva nº 1.229, anuncia os preços 
de alguns dos produtos que comercializa: 


PC 2001 (256Kb) 1.238 ORTN 
UCP Craft || Plus (48Kb) .. 104 ORTN 
UPC Unitron AP || (48Kb) . 120 ORTN 
Disk Drive 5 1/4" 72 ORTN 
Impressora Grafix 80 .... 1790RTN 
Impressora Grafix 100 . ... 293 ORTN 
Impressora Alice 9051 ..., 459 ORTN 
Impressora Mônica Plus ... 329 ORTN 
Monitor Compo MV1 52 ORTN 


Software 


Alta Caixa 
Janela Mágica || 
Super Visicalc 
Lotus 1-2-3 


15 ORTN 
18 ORTN 
18 ORTN 
200 ORTN 
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INSTRUMENTOS 


* Decida sem dúvidas, erros de informação, falhas de estoque 
ou vacilações nas entregas. 


— Completa linha de instrumentos de teste e medição. 
— Garantia de até 2 anos. 


— Assistência técnica própria permanente. 


— Sistema inédito de reposição quando em 
garantia. 


Y | — Atendimento personalizado para 
todo o Brasil. 


SUPRIMENTOS 


INFORMÁTICA 
cds CPD 





* Ponha-se em dia com o * Unimos o útil ao agradá- 


futuro. vel: qualidade/preço. 
— Microcomputadores — Pronta entrega para todo 
Prológica. o território nacional. 


— Assistência técnica — Estoque com os mais 


própria. variados produtos. 
— Revendedores em todo —. Fitas impressoras 
o território nacional com a 
melhor assessoria para ampa- 
rálo no momento de decisão, 


mesmo que você só precise 





Formulários 


Etiquetas 
- Disquettes 


de uma informação mais Mesas 
precisa sobre os Estabilizadores 
equipamentos. 
AJUDANDO Madona 
A DESENVOLVER rastos pára 
TECNOLOGI A formulários 
. etc. 
VISITE NOSSO SHOW-ROOM OU 
SOLICITE NOSSO REPRESENTANTE : 
5 


FILCRES ELETRÔNICA ATACADISTA LTDA. 
Rua Aurora, 165/171/179 — São Paulo — SP 
PBX: 223-7388 
Vendas São Paulo — Tels.: 220-7954/222-3458 
Vendas outros Estados — Tels.: 223-7649/221-0147 
Telex: 1131298 





Planejar e controlar projetos não é mais tão difícil. 


Utilizando este programa para a linha Apple, sua empresa 


poderá contar com... 





fécnica Pert 


Angelo dos Santos Soares 


planejamento e controle de 
prazos das tarefas que com- 
põem um projeto vêm, a cada 
dia, tornando-se mais impor- 
tantes, principalmente quando se verifi- 
ca a complexidade e a interdependência 
dos fatores que influem na sua solução. 
Estes fatores podem ser externos, como, 
por exemplo, prazos estabelecidos para 
entrega do projeto ou término do servi- 
ço , e/ou internos, como tipos de regime 
de trabalho adotado, sequência e inter- 
dependência entre as operações. 

Atualmente, uma das técnicas mais 
usadas para planejar e controlar projetos 
é a técnica PERT (Program Evaluation 
and Review Technique), ou seja, Técni- 
ca de Avaliação e Controle de Progra- 
mas. Esta técnica se torna ainda mais 
útil quando se deseja controlar e coorde- 
nar várias atividades correntes que se di- 
rigem a um objetivo comum. 

O PERT foi utilizado pela primeira 
vez na construção de sistemas de projé- 
teis “Polaris” e teve seu uso difundido 
tanto no campo civil como militar. 


A REDE 


A rede de planejamento é a represen- 
tação gráfica de um programa, no qual 
se apresenta a sequência lógica do plane- 
jamento com as interdependências das 
tarefas, com o intuito de se alcançar um 
determinado objetivo. Deve-se evitar 
que a rede apresente detalhes excessivos 
em alguns setores e em outros seja por 
demais grosseira. 

Uma rede é composta de eventos e 
atividades. Os eventos são representados 
por cículos e constituem marcos que ca- 
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racterizam determinados instantes, sem 
consumir tempo e/ou recursos. Já as 
atividades são representadas por arcos 
orientados que unem dois eventos. É a 
execução efetiva de uma operação, con- 
sumindo tempo e/ou recursos. 

Para representar uma rede, podemos 
lançar mão de dois métodos: o francês e 
o americano. No nosso programa, o mé- 
todo utilizado será o americano por cau- 


sa das vantagens que este apresenta so- 
bre o método francês, além de ser o 
mais usado. O método americano apre- 
senta, entre outras, as seguintes vanta- 
gens: permite um domínio mais fácil pa- 
ra quem realiza o planejamento e difi- 
culta a repetição inútil de idéias que re- 
presentam um só pensamento. 

Para se elaborar uma rede de planeja- 
mento, é necessário conhecer a rela- 
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ção das atividades, a ordem de relaciona- 
mento entre elas e sua duração, Tam- 
bém é importante observar as seguintes 
regras básicas: 


e entre dois eventos só pode existir 
uma atividade; 

e qualquer atividade que parte de um 
único nó é uma atividade dependente de 
todas as atividades que chegam a esse 
nó; 

e um evento é considerado atingido 
quando todas as atividades que conver- 
gem para ele forem concluídas; 

e não devem existir circuitos na rede, 
pois ocorreria o fato de uma atividade 
dar origem a si mesma. 


De acordo com a primeira regra aci- 
ma, seria impossível realizar-se ativida- 
des paralelas. Para contornar este pro- 
blema, introduz-se o conceito de ativida- 
de fictícia e evento fictício. Mas, é bom 
lembrar que, embora as atividades fictí- 
cias não consumam tempo nem recur- 
sos, elas gastam tempo de processamen- 
to e por isto devem ser evitadas. Essas 
atividades só deverão existir quando fo- 
rem estritamente indispensáveis. 

Existem dois métodos para se estabe- 
lecer uma rede: o método da regressão e 
o da progressão. O primeiro parte do 
evento finalíssimo e caminha para o ini- 
cial. O método da progressão, mais fácil 
e mais utilizado, parte do início para o 
fim. Tem-se continuamente o seguinte 
pensamento: “— Qual atividade (ou ati- 
vidades) vêm depois desta?” 


DATAS DOS EVENTOS 


Cada atividade recebe um tempo esti- 
mado para sua execução. Elas podem o- 
correr paralelamente ou sobrepor-se a 
outras. Para se obter informações tais 
como a duração do projeto, devem ser 
considerados, a partir do início, os pra- 
zos mínimos em que as atividades po- 
dem ser iniciadas e os prazos máximos 
para o término de cada uma delas. 

Data Cedo de um Evento — É o tempo 
necessário para que o evento seja atin- 
gido, considerando-se que não houve 
atrasos (imprevistos nas atividades ante- 
cedentes). 

Data Tarde de um Evento — É a data 
limite de realização de um evento. Qual- 
quer execução que passar desta data 
atrasará o projeto planejado. 

Tempo Disponível — É o intervalo de 
tempo existente entre a data tarde final 
e a data cedo inicial de uma atividade 
considerada. À 

Caminho Crítico — E o caminho de 
maior duração do projeto (evento ori- 
gem — evento objetivo). 

Com relação às datas limite de início 
e término de uma atividade, temos: 
Primeira Data de Início (PDI) — É a pri- 
meira data possível de se iniciar uma ati- 
vidade. 

Última Data de Início (UDI) — É a 
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última data possível de se iniciar uma 
atividade. 

Primeira Data de Término (PDT) — É a 
primeira data possível de se terminar 
uma atividade. 

Última Data de Término (UDT) — É a 
última data possível de se terminar uma 
atividade. 


FOLGAS E RECURSOS 


Chamamos de folga a margem de 
tempo que reflete a flexibilidade da pro- 
gramação, que pode ser dividida em livre 
e total. A folga livre (FL) é o atraso má- 
ximo que uma atividade pode ter sem 
alterar a data cedo, fixada, do evento fi- 
nal desta atividade, enquanto a folga 
total (FT) é o atraso máximo que uma 
atividade pode ter sem alterar a data 
final de sua realização. Já os recursos 
são meios utilizados para a execução das 


OPCOES 
0. CONSTRUCAO DE UMA REDE 
1. CORREÇÃO DE DADOS 
2 MOSTRA À TABELA DE EVENTOS 
3.MOSTRA À TABELA DE ATIVIDADES 


4.MOSTRA O GRÁFICO DE GANTT E FERIADOS 
J. MOSTRA AS ATIVIDADES CRITICAS 

6. MOSTRA 05 RECURSOS UTILIZADOS 

7. CHAMA À REDE DO DISCO 

8. GUARDA À REDE NO DISCO 

9. SAIDA DO PROGRAMA 


Figura 1 


tarefas. Eles são geralmente expressos na 
forma de trabalho e podem ser estima- 
dos e alocados a cada atividade. 


O PROGRAMA 


O programa apresenta inicialmente 
dez opções, como mostra a figura 1. 
Vejamos agora algumas considerações 
sobre cada uma delas. 

O. Construção de uma rede — Para 
executar esta parte do programa, deve 
ser feito, previamente, o desenho da re- 
de. No caso, usaremos como exemplo 
a rede que está no início desta matéria. 
O programa vai solicitar o número total 
de nós (incluindo os nós fictícios); o 
número total de atividades (incluindo as 
fictícias) e o número do evento inicial 
(que geralmente é o número 1, mas po- 
derá ser qualquer outro número inteiro 
positivo). 

Após a introdução desses dados, de- 
verá começar a introdução das ativida- 
des propriamente ditas. Para cada uma 
delas, o programa pede o nome da ativi- 
dade, o número do evento que a precede 
e o número do evento que a sucede. No 
caso de esquecimento, o programa man- 
tém na tela a última atividade introdu- 
zida. 





TABELA DE EVENTOS 


EVENTOS 





Figura 2 


Em seguida, ele verifica se a cada ati- 
vidade corresponde um evento. Caso 
contrário, é emitida uma mensagem de 
erro, e o programa reinicia a operação, 
colocando o MENU novamente na tela. 
Em caso positivo, o programa ordena as 
atividades por seus números (Ex.: 1-2, 
1-3, 24 etc.) e pede a data de início do 
projeto (DDMMAA). Se nenhuma data 
inicial for desejada para o projeto, deve- 
se entrar com “*”. Então, será pedida a 
duração das tarefas (em dias) e os recur- 
sos alocados para cada atividade. Neste 
momento, a rede já está na memória do 
computador, e são calculadas as data ce- 
do, data tarde, data das atividades e con- 
sequentemente o caminho crítico. En- 
quanto o programa é executado, apare- 
cem mensagens na tela, então, o MENU 
é oferecido para a escolha de outro 
item. 

1. Correção de Dados — Esta opção 
dá ao usuário a oportunidade de fazer 
mudanças na rede e ver imediatamente o 
efeito que a mudança introduz no projeto. 
Todavia, esta facilidade é limitada, não 
possibilitando inserir, apagar ou reorde- 


“nar as atividades. Ela permite corrigir a 


duração de uma atividade e os recursos 
alocados a ela. Quando todas as mudan- 
ças forem introduzidas, o programa re- 
calcula automaticamente as datas de to- 
da a rede. Essa opção possibilita, ainda, 
a mudança da data inicial do projeto. 

2. Mostra a tabela dos eventos — Será 
dado um relatório onde se encontram os 
eventos e suas datas (cedo e tarde) e a 


folga. (Veja a figura 2). Estas datas são 


apresentadas em número de dias ocorri- 
dos no projeto. 

3. Mostra a tabela de atividades — 
Quando este relatório for pedido, serão 
dados por extenso todos os oito itens en- 
contrados. Será pedido, então, o núme- 3 
ro de ordem, que pode ser qualquer um 
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TABELA DE GTIVIDADES 


EH ORDEM ASCENDENTE : 
1 ATIVIDADE 
& « DURACÃO 
3. ULTIMA DATA DE INICIO 
4. ULTIHA DATA DE TERMINO 
++ PRIMEIRA DATA DE INICIO 
b.PRIMEIRA DATA DE TERMINO 
7.FOLGA TOTAL 
&. FOLGA LIVRE 


NUMERO DE ORDEM 4 


ATIVIDADES SELECTONADAS 
TABELA DE ATIVIDADES 


FaeELAS EM TERMOS DE:-1.DATAS 
2 DIAS 


Figura 3 


dos números de 1 a 8 (veja a figura 3). 
Depois será fornecida a opção de relató- 
rios em forma de data ou em forma de 
dias. No relatório em forma de data (fi- 
gura 4) não aparecerá a folga livre e a 
folga total por limitações no campo de 
impressão. As datas serão impressas na 
forma DD/MM/AA. A forma de dias, 
como mostra a figura 5, apresentará as 
datas em número de dias ocorridos no 
projeto. Na frente do número de cada 
atividade crítica aparecerá um “* *”, 

4. Gráfico de Gantt — O gráfico apa- 
recerá no mínimo para cada 60 dias de 
projeto (figura 6) e, no máximo, para 
240 dias. As atividades críticas têm na 
frente do número um “* *”, e suas dura- 
ções no práfico de atividades também são 
representadas por um “ *”, As ativida- 
des não críticas serão representadas pelo 
sinal matemático “ > ” (maior que). 

O gráfico de Gantt é particularmente 
útil para se poder ver as várias atividades 
sobrepostas. Também aparecerá no prá- 
fico um pequeno calendário indicando o 
dia da semana correspondente a cada dia 
do projeto (de segunda a sexta-feira). 
No lugar dos sábados e domingos, serão 
impressos brancos, e nos feriados “F”, 
não sendo, assim, considerados dias 
úteis. Aparecerá também a data no for- 
mato DD/MM/AA correspondente a ca- 
da dez dias do projeto. 

No final do gráfico de Gantt, será 
impressa uma tabela contendo os feria- 
dos que ocorreram durante o projeto 
(figura 7), mostrando o número total de 
feriados, a data e o dia da semana. 

5. Mostra as atividades críticas — Se- 
rá fornecido um relatório (figura 8) con- 
tendo o número e nome da atividade 
crítica, a sua duração, a última data de 
Início (UDI), no formato DD/MM/AA, 
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TABELA DE ATIVIDADES - EM TERMOS DE DATAS 


) . h U 


is vid Treo ee 2 li o E 
|O Mos:LcA»tTnrn 
* x x 


19/03/84 
19/03/04 
19/03/84 
20/03/84 
22/03/84 
22/03/84 
22/03/84 
c2/09/84 
22/03/84 
29/03/84 
28/03/84 
01/04/84 
02/04/84 


19/03/84 
21/09/84 
20/03/84 
23/03/84 
20/03/84 
27/03/84 
24/03/84 
28/09/84 
27/03/84 
31/09/84 
01/04/84 
04/04/84 
04/04/84 


20/03/84 
19/03/84 
20/03/84 
21/09/84 
22/03/84 
22/09/84 
22/03/84 
29/09/84 
27/03/84 
29/09/84 
28/03/84 
01/04/84 
02/04/84 


20/03/84 
21/03/84 
21/03/84 
24/03/84 
22/03/84 
27/03/84 
24/03/84 
31/09/84 
01/04/84 
31/03/84 
01/04/84 
04/04/84 
04/04/84 











Figura 5 


ATIVIDADE 


EM TERMOS DE DIAS 
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Figura 6 


e o número de dias ocorridos no projeto, 

6. Mostra os recursos utilizados — 
Aparecerá um relatório onde serão apre- 
sentados, dia a dia, quantos recursos 
estão alocados em todas as atividades do 
projeto (figura 9). 

7. Chama a rede do disco — Opção 
usada para carregar o micro com uma 
rede previamente gravada no disco. 

8. Guarda a rede do disco — Esta 
opção serve para gravar no disco a rede 
que está no micro. Lembre-se que não é 
possível chamar uma rede se outra já es- 





* 57005 STGOS STAROS STOOS STOGFF STOOS FFGQS STGAS STR 
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tiver presente na memória do micro. Na 
tentativa de se fazer isto, será emitida 
a mensagem “A rede já está na memória”. 
Isto é feito para proteger a rede, evitan- 
do que acidentalmente sobreponha-se 
uma rede à outra, 

Caso não tenha sido introduzida a 
rede, ou não se tenha chamado a rede 
do disco, e se tente pedir outra opção 
do MENU que não seja O (construção da 
rede) ou 7 (chama a rede do disco), será 
emitida a mensagem de erro “A rede 
não está na memória”, 
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NEXUS: o PC mais famoso do Brasil 
está na Clappy. 


Compre logo um Nexus 1600, um micro versátil para uso 
pessoal ou automação de empresas, com 256 Kbytes 

de memória RAM e expansão até 704 Kbytes. 

O Nexus 1600 é IBM-PC compatível e possui características 


exclusivas: 

— Trabalha também a 8 MHz, o que 
permite uma maior velocidade 
de processamento, 

— Sua placa de sistema já possui 
duas interfaces de comunica- 
ção serial. 

— Monitor de vídeo com tela 
basculante e máscara anti- 
reflexo. 

— Facilidades na edição de 
comandos e textos, com o 
simples acionar de teclas. 

Para que você tenha 

nas mãos toda a ver- 

satilidade do Nexus 

1600, a prai lhe 

oferece atendimento es- 

pecializado e as melhores con- 
dições de preço e pagamento, 

E à Scopus garante a 

mais perfeita assistência 

técnica. Como você 

vê, nunca foi tão fácil 

comprar uma memó- 

ria nova. Sem dor 
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P” Em março, 


de cabeça. 7 oNexus 1600 
tem preço es- 
pecial, e entrega 
os IR) pias imediata, 
computadores Centro: Av. Rio Branco, 12 - loja e 


sobreloja - Tel.: (021) 253-3395 


Copacabana: Rua Pompeu Loureiro, 99 
Tels.: (091) 9236-7175 - 957-4398 


Visite nossas lojas ou solicite a visita de um representante. 
Atendemos em todo o Brasil pelo Reembolso Varig 


Clap 


O lado gente da máquina. 
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9. Saída do Programa — Ao se esco- 
lher esta opão, será emitida a mensagem 
“Você tem certeza de que quer parar? 
(S/N)”. Se for digitada outra letra que 
não “S” o programa volta ao MENU, de 
forma a não se sair do programa sem 
realmente desejá-lo. 


RESTRIÇÕES DO PROGRAMA 


1. O número total de dias (incluindo 
sábados, domingos e feriados) de plane- 


FERIADOS NO PERIODO 


33-20/04/84-S5 


34-21/04/84- 


43-30/04/84-S 


44-01/05/84-T 


Figura 7 


jamento não pode ultrapassar 240. Isto 
se deve ao fato dos vetores VE$ (calen- 
dário) e GND (feriados) estarem dimen- 
sionados para esse número máximo de 
dias. Um aumento neste dimensiona- 
mento gera um estorno na memória do 
micro. 


2. Na rede, não pode haver uma ativi- 
dade cujo nó predecessor seja maior que 
o nó sucessor. Também não se pode 
numerar esses nós aleatoriamente. A 
numeração deve obedecer a uma ordem 
crescente e sequencial, ou seja, uma rede 
com cinco nós deverá possuir os nós de 
número 1,2,3,4,5 ou 32,33, 34,35, 
36 e nunca 1,3,5,6,7 ou 33,35, 37, 
59,32, 


3. Quando é solicitado o relatório Grá- 
fico de Gantt e Feriados (opção 4), o 
programa demora algum tempo. Entre- 
tanto, não desligue o micro nem pare o 
programa, pois esta demora se deve a 
montagem dos vetores calendário e fe- 
riados. (O PROGRAMA NÃO ESTA EM 
LOOPING!). 


4. A ordem da emissão dos relatórios é 
importante! Só o relatório 2 (Mostra a 
tabela de eventos) não depende desta 
ordem. Ela diz respeito a impressão dos 
relatórios antes ou depois da emissão do 
relatório 4 (Mostra o gráfico de Gantt e 
Feriados). 

Se os relatórios forem emitidos antes, 
todas as datas e números de dias ocorri- 
dos no projeto vão estar sendo conside- 
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ATIMIDADES CRITICAS 


19/03/84 
22/03/84 


22/03/84 
22/03/84 
29/03/04 
28/03/84 
01/04/84 
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Figura 9 


rados como dias corridos, isto é, sem le- 
var em consideração sábados, domingos 
e feriados. Já no caso de os relatórios 
serem emitidos depois, todas as datas 
e números de dias ocorridos no projeto 
serão considerados dias úteis, levando 
em consideração sábados, domingos e 
feriados. 

5. Os feriados do programa correspon- 
dem aos de 1984. Quando se usar este 
programa deverá ser feita uma mudança 
na lista de feriados, introduzindo os 
feriados correspondentes e apagando os 
já ocorridos. Esta lista se encontra na 
linha 1775: 

1775 Feriado $ = “Lista de Feriados” 

Para fazer esta mudança, aja da se- 
guinte forma: 

— Execute os passos de 1,2,3,4,8 
do algoritmo para rodar o programa. 

— Digite “1775” RETURN. 

— Digite “1775 Feriado $”=“Lista de 
Feriados” RETURN. 

Onde, a lista de Feriados, entre aspas, 
deverá obedecer o formato “DDMMAA 
DDMMAADDMMAA...”, ou seja, dia, 
mês e ano, cada um com dois dígitos e 
sem espaço entre eles. 

6. A unidade de duração das tarefas é 
dia. Não é possível ter-se meio dia, hora, 
etc., na duração de uma tarefa. 

7. O nome das atividades pode ter no 
máximo 29 caracteres. 

8. Para não ocorrer estorno na memória 
do micro, o número de atividades a se- 
rem utilizadas deve ser, em média, 60. 





9. O número máximo de feriados por 
ano é igual a 30. 

10. As saídas dos relatórios estão tabu- 
ladas para impressora e vídeo c/80 colu- 
nas. 

11. Para os usuários com impressora 80 
colunas (tipo Mônica, por exemplo) é 
conveniente usar o modo texto compri- 
mido. 
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PEFFFFA 
FER RF, 


Quanto custa 
transformar um 
terminal remoto 


-. TR 207num 
microcomputador 
Cobra 210? 


O microcomputador Cobra 210 
e o terminal remoto TR 207 são primos 
em primeirissimo grau. Os dois foram pro- | 
Jetados para permitir a padronização dos | 
processos industriais, com a consequente 1 
redução do custo de fabricação e do preço ao 
consumidor. Ê 

| O micro e o terminal utilizam a mesma mecânica, a mesma fonte de alimentação e o mesmo 

video. Eles têm pequenas diferenças nas partes eletrônicas e nas características do teclado. 

Qual a vantagem dessa padronização para o usuário? 

À primeira é que um micro Cobra 210 pode desempenhar plenamente todas as funções de um 
terminal remoto, sem prejuízo de suas funções de microcomputador. 

A segunda é que um terminal remoto pode ser facilmente convertido num microcomputador 
Cobra 210. O processo de transfor- 
mação é simples e o custo é baixo. 

Como você vê, quando compra 
um Cobra 210, você leva um micro que 
também pode funcionar como terminal 
remoto. E quando compra um 
TR 207, você leva um terminal remoto 
que pode ser transformado em 
micro, como num passe de mágica. 

Isso não é um bom negócio? 
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TE Número Total de Eventos 
TA Número Total de Atividades 
ACSITA 1) Vetor que contém o Nome das À tividades 
ETITE | Para cada E vento: 
1. Data Cedo 
2. Data Tarde 
3. Folga 
AD ([TA.IO) = Para cada Atividade: 
1. Número da Atividade [ex.: 3002=3-2) 
2. Indica o Atividade Crítico: | — Critica 
O-=Não Crítica 
4. 


d. Primeiro Data de Ínteio [PDI) 
imeira Data de Término (PDT) 
Itima Data de Inveio (a 
| Ultimo Date de Término [UDT) 
8. Folga Total (FT) 
9. Folga Live (FL) 
JO. Recursos 
- Tabela de precedência; 
Coluna — representa o evento precedente 
Linho — representa o evento sucessor 
— Fem valor =| quando a Data Inicial é dese 
Tem valor =Ô quando ndo se desejo Data Inicial 
Matrã de Ordenação: - 
Mo invés de reordenar a matriz AD, que É gren- 
de, toda vez que se precisar ordenar as ativido- 
des, reordenar-se este vetor. 
Cada elemento do Vetor 5K (TA) contém um 
ção indicando umo linha do matriz AD. 
esta forina, depois de uma pqanordo, SR 
[SJ e SR [2/=30, Então, quando imprimi 
AD (7), send impresso primeiro seguido de 
AD (30) 
A data inicial é convertida no número total de 
dias a partir de 0.01 1972. 


ARTE 1 


SB O número o ser adicionado a codo número de 
atividade, se o usudrio tiver como evento iniedal 
um mimero maior que | 

Ny - Tem valor «| sea motrk está no memória 
Tem valor =D se a matriz ndo estd no memória 

DI4$ 12 pares de números, dias em coda mês de um 
ano ndo bissexto | 

D23 !2 pares de números, dias em cada meés de um 

D34 

Fe É (240) 


ano bissexto 
GN D (240) - 





I2 pares de mimeros, rotal de dias acumulados, 
mês o mês, durante um ano 

Fetor no qual são armazenados os dias do sema- 
na do projeto 


que é fer 





= REM asus AMGELO DOS SANTOS 50h Ls 
DES ema vi = DM - 
REM see Dáthnas ibrsóidds nma 
FEH me LL INGUAGEMEBASIO —- EN 
LTRDM Eme 
REM ses PRoltaMaDHO PEÉHI mes 


GOGUR Lodi: GOTO Sd dd b 


Fetor ad o número de dias do projeto 
a 





LEN E SBTRE CDH - DZj 
DX dos STRS AVI di 
Ur = VIT a C/E = 
Ch + LUZ = RIGHTE 4 
38,A3 + 1h IF LEN (V5S) € TE = MAL GABI IF TE LOS Goma 
* 3 THEN USE = CBO + US tas 
L = LEN É STRE (éDa + AH) £ À 


EEE 


— 


Subrotina pará Cosverter e nuzero Eotal de dias mo 
focnato Dia, Mom e Ano (DDMMAA). É colocada no int 
cio para ótisizar o tempo de processamento de pro 
qramA 


Obtém ou detalhes básicos da fodi, Converte D mimo 
ra do evento predecessor & do evento PuceRtos UM 
im único nosso, multiplicando & edénto prodeceas- 


sor por [000 w sorândo à DreBto Sacredor. Expeplo: | 
Atividade | —-Z7= 1. 1000 é & = 1002 | 


by = 85 


E — 


” Chera «e vrdena de atividades de avordo com à erdea | 
03 = 490) AUBATICh: 


Obuês a data inicial é converte está po nero to 
tai êo dias à parche do Dil. 1NTa, Gu nejã, Aumo 
Po de dina entres 


No de diás 
B1.Br. toTa 


4 
Data imichal 


- 


dbteo duração & recurso para cada atividade. 
Cajcsla as datas codo o tardo dos eventos. 

o Fla = mi 
Calcula à falga dos eventos cd caminho critiso, | 


Calcula pará cada atividade PL, PT, URL, MM. FE | 
Fi. 


Ssbrotina para corimção da fede. 


——— —— 


, Drlenição da Edlria de Eventos, 
Madtra à Calbala de EVEnTOR, 


drdonação da cabrio de Atividados. 


Hostra a tabela de Atividades ce loraa do data E 
ve Corea dm dias. 


Mostrá ds átividades criticas, 


Mostra o qrálico de Gantt o of farlados do poria- 
[e [A 


DOM —- LOS * = indica ds atividades criticas, 


PMI = 1755 MOSEFA O gralico de Recursos dtilitados. 


Elussa cu quarda a rede no disco. 


190 = 14h6 Saida do programa wc aubrótina do HEU. 


Pnosa dt q usmario prididomar brapon pára conti 
quar & projráma. 
- E Oo E E 


| 4508 = TrTE inicialização das Yaridveim. 


SOS = [540 Checa O número de linhas de depressão e chama a 
E abhrogina Pama o. 


405 té io pi=enaitasdeento dás HAtriFes:. 


NETE = 1E4Ó 


Esvolka do formato em data ou nãsero dr dian. 


“Improssão das Gatas (DOMMAA!. 


TER 
cálculo do dia da semana (Soquada, Eorçã, quarta, 


1765 - démlndgérh 


- jASO Cálculo dos Fouriados, 


1851 = 1970 Hontagem dn Vetor Calendar jo, 


Resúmo. do prograrta 


O MUMERO TOTAL DE NOS 

PRINT 1 PRINT ºCINCLUINDO OS 
NOS FICTICIOG)O: PRINT é IMPuT 
“NUMERO DE MOS “rAS 


E LOHTE 


PRINT + PRINT E PRINT “GLAL 
O MUMERO TOTAL DE ATIVIDADES 


EEM nos CONVERSÃO DO HUMERO Re DA + AD) / AGIGLE = STRE qr 


TóTAL DE DIAS EM FORMA DE Bh 


Fá CODAMAÃO man Gê = RIGHT: 
RIGHTS 46%,A3 + dy TF 
* 3 THEN 00% = “8” + 


Da = ASTM = INT éMD £ AZDiIDA 
= ND - CTN. aAd) = INTIALF 1GHS) «4 
Ms fd) Adir TE DM + à GOTO GH 


45 1 AB = TH = ná:hÃE o 
RIGHTE CADS,AD 4 skol 
1% = VS4 e GOBIL2S = LiS + A 
DM = DM & AF Es: RÉ TUBH 
Di = 0: LF ENE ATHA4 Adi = YN a oM ExTe PRINT LHE? PRINT 2 DOG 
aa HEM Di = A? is2br BOTO iAZd 
DE = MAL E MIDS (03%, DAI PS REM eum CONSTRUCÃO DA REDE 


Ho TN ER] DN + nos JF RES = 


INTO So Ads = TN ida THEN 


IF Do à» ÀS THEN DP - b2 + O um 
i 104 PRINT 
LF DN 4 - Di THEN D3 - D3 - 


AI: GOTO SB ido PRINT 





EMPILODE = DL + 4 
LOREeL + 15005 = 


BuUCÃO DA REDE” 


PRINT + PRINT “CIMCLUINDO AS 
ATIVIDADES FIETICIAGIO: PRINT 
LEN 1 INPUT “NUMERO DE ATIVIDADE 
ET) 
TA = VAL (AS: IF TAL E GOTO 
GTRE (ADI: 125 
PRINT & PRINT & INPUT “OU 
O MUMERO DO EVENTO INICIAL? 
“rh 
São = VAL ABI — hº JE GH Lê 
Boto das 
PRIHT 2: PRINT = PRINT Endii 
S):"INTRODUGAO DAS ATIVIDADE 
: PRENT “CONST Er 
BOSUR 1400 
: PRINT “QLAL FOR d= 4 E Ta 
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155 
160 


163 


170 


180 
185 


190 


195 


es 
230 
233 


240 


310 
345 


330 


335 
J4O 


345 


IF J = 4 GOTO 470 

PRINT 2: PRINT 2: PRINT “A ULT 

IMA ATIVIDADE INTRODUZIDA FO 

I “e 

PRINT 2 PRINT C + 8851=“;R + 
987” “;ACSCJ — 4): PRINT : PRINT 


PRINT : PRINT : INPUT “NOME 

DA ATIVIDADE “sACE(J) 

PRINT = INPUT “NUMERO DO EVE 
NTO QUE A PRECEDE “:A% 

LET C =- VAL (AS) - SB 

IF C< > INTI(C) ORC4<4OR 
C > TE - 4 THEN PRINTS PRINT 
“NUMERO INVALIDO”: GOTO 475 
PRINT : INPUT “NUMERO DO EVE 
NTO QUE A SUCEDE “FAGIR = VAL 
(AG) — SB 

IE R< > INTCR)IORRC?ZOR 
R > TE OR R = €C THEN PRINT 

: PRINT “COMBINACAO INVALIDA 
“z GOTO 475 

PTCR,C) = S2AD(J,4) = Cx 400 
O + Rº NEXT J 
REM xxx CHECA E ORDENA AS A 
TIVIDADES xxx 
PRINT : PRINT : PRINT “CHECA 
Rº2:Y = 0: FOR C=4TOTE- 
12X = 0: FOR R = 2 TO TE: IF 
PT(R,C) = £ THEN X = 4 
NEXT R: IF X = O THEN Y = 4: 

PRINT = PRINT “NENHUMA ATIV 
IDADE INICIANDO O EVENTO?5C + 
SB 
NEXT C: IF Y = 4 THEN PRINT 
: PRINT “O PROGRAMA SERA REI 
NICIADO “: GOSUB 4520: RUN 
REM xxx SORT POR NUMERO DE 
ATIVIDADE xxx 
PRINT “ORDENAR”: FOR J=4 TO 
TA - 4: FORK =J+4 TOTA 
IF AD(J,4) € = AD(K,1) GOTO 
250 

A = AD(J,ÍD:ADCI,4) = ADCK,1) 
:ADC(K,1) = A 

AB = ACHCIDIACHCJ) = ACSCKITA 
C&(K) = Ab 
NEXT Kz NEXT J: GOSUB 260: GOTO 
320 
REM «xx OBTEM A DATA INICIA 
L E CONVERTE EM NUMERO DE DI 
AS - DESDE JANEIRO DE 41972 x 
“x 
PRINT = PRINT “DATA INICIAL” 

: PRINT 

PRINT “ENTRE COM A DATA INIC 
IAL DO PROJETO (DDMMAS) 
PRINT : PRINT “DIGITE * SE N 
ENHUMA DATA INICIAL FOR DESE 
JADA “ 

SD = 0: PRINT : INPUT “DATA I 
NICIAL “;S8D%: IF SD6 = “x” THEN 
SD = 1: GOTO 340 

D = VAL ( LEFTS (SD$,2))2M = 

VAL ( MIDS (SD$,3,2)):Y = VAL 
( RIGHT$ (SD$,2)) 

IF M< 4 ORM)> 42 0R Y«<TR 

OR Y > 99 OR DC 1L0RD>I3 
4 THEN PRINT : PRINT “DATA 
INVALIDA”: GOTO 275 

Y=Y + 490072 IF INTCY/4) 

=Y/ 4 THEN DAS = D2G 

Y=Y- 4900: IF D> VALCMIDS 
(D16,M 4 2 - 4,2)) THEN PRINT 
: PRINT “DATA INVALIDA”: GOTO 
275 

TD =D+(Y-72) * 3965 + INT 
((Y - 69) 4 4) + VAL E MIDE 
(D36,3 * M- 2,3)) 

IF M > 2 AND (1900 + Y) / 4-= 

INT ((1900 + Y) / 4) THEN T 
D=TD+4 
RETURN 
REM s»x*x DURACÃO E RECURSOS 
PARA CADA ATIVIDADE uxx 
FOR J= 4 TO TA: PRINT: PRINT 
1: PRINT “DURACAO DA ATIVIDAD 
E E RECURSOS “: PRINT 
PRINT “ENTRE COM À DURAÇÃO D- 
À ATIVIDADE.“ : PRINT 


F = INT CAD(I,1) 7 1000):T = 
ADCI,1) — F x 1000 + SDzF = 
E + SB 
PRINT FE ="s Ta CRACHCI) 


PRINT : INPUT “NUMERO DE DIA 

S “AGA = VAL (AG): IF A < 

o GOTO 340 
AD(J,39) = A? PRINT : PRINT : PRINT 
“ENTRAR COM AS UNIDADES DE EK 
ECURSOS ALOCADAS «“ 

PRINT =: INPUT “UNIDADES “;AS 

Ea) VAL cab): IF A < O GOTO 

STO 
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35 


360 
365 


370 


375 
3H 


385 


IPO 
IP 
400 
405 


410 


470 
475 


480 


485 


3985 


IPO 


ADCI,10) = À? NEXT J 
REM sux DATA CEDO DO EVENTO 
nx 
PRINT = PRINT 2 PRINT : PRINT 
“CALCULANDO AS DATAS CEDO” 
FOR J=4 TO TE: FOR K = 4 TO 
JIETCJ,K) O: NEXT K: NEXT 
J:ETC1,1) 1: FOR R = 2 TO 
TE: FOR CE BuTO TE = 4 
IF PTCR,C) = 0 GOTO 395 
AN = E x 1000 + R: FOR J = 4 TO 
TA: IF ADCJ,1) << > AN GOTO 
IPO 


nu nu 


JF ADC(J,9) + ETCC,Ã) > ETCR, 
1) THEN ETC(R,Ã) = ADC(J,3) + 
ET(C, 1) 
NEXT J 


NEXT C: NEXT R 

REM sxx DATA TARDE DO EVENT 
O sux 

PRINT “CALCULANDO AS DATAS T 
ARDE” 

ET(TE,2) = ETCTE,1): FOR R = 
TE TO & STEP - 4º FOR C=T 
ES TVA ABr = 
IF PTCR,C) = O GOTO 440 

AN = Cx 1000 + RE FOR Sd = 4 TO 
TA: IF ADCJ,4) € > AN THEN 

GOTO 435 
IF ET(C,2) = O THEN ET(C,2) = 
ET(R,2) — ADC(J,3): GOTO 435 


IF ETC(R,2) — AD(J,3) < ETC, 
2) THEN ET(C,2) = ET(R,S) — 
ADCJ,3) 
NEXT J 


NEXT Cs: NEXT R 

REM nax CALCULO DAS FOLGAS 
DAS ATIVIDADES xxx 

FOR J = 4 TO TEZET(J,3) = ET 
(J,2) - ET(J,14)2 NEXT J 

REM xxm CAMINHO CRITICO xx 


FOR J= 414 TO TA:AD(J,2) = 0: 
F = INT (CÁD(J,1) / 1000):T = 
AD(JS,1) - Fx 1000 A 
IF ET(F,3) = O AND ETCT,3) = 
O AND ETCT,14) — ET(F,1i) = AD 
(4,3) THEN ADC(J,2) = 1 
NEXT J 
REM xxx CALCULO DAS PDI PD 
T UDI UDT FL E FTPARA 
CADA ATIVIDADE mx 
PRINT “CALCULANDO AS DATAS D 
AS ATIVIDADES “ 
FOR J = 4 TO TAZF = INT CAD 
(J,4) / 1000)ºT = ADC(J,i) —- 
F * 1000 
AD(J,4) = ETCF,1):ADC(J,5) = À 
D(J),4) + ADCI,3) - 4 
AD(),7) = ETC(T,2) — 4PADC(J,6) 
= AD(J,7) - AD(J,3) + 4 
ADC(I,B) = ADCJ,7) — ADCJI,SIFAÁ 
D(J,9) = ET(T,1) - AD(J,5S) - 
í 
IF AD(J,3) = O THEN ADCJ,5) = 
ADCI,4D72ADCI,7) = AD(J,6) 
NEXT J: GOTO 14290 
REM xxx SUBROTINA PARÁ CORR 
ECÃO DA REDE xxx 
PRINT 2: PRINT : PRINT” “ TAB( 
14)5"CORRECÃO DE DADOS” 
PRINT : PRINT “4.CORRECAO DE 
UMA ATIVIDADE” 
PRINT : PRINT “2.CORRECAO DA 
DATA INICIAL “: PRINT 
PRINT : INPUT “QUAL O NUMERO 
P “sAGIA = VAL (AG): IF A < 
1 OR A > 2 GOTO 535 
IF A = 4 GOTO 550 
GOSUB 240: GOTO 365 
PRINT : PRINT : PRINT : PRINT 
“ " TAB( 7)75"CORRECÃO DAS AT 
IVIDADES” 
PRINT : PRINT “ENTRE COM O N 
UMERO DA ATIVIDADE (EX:14-5)7 


PRINT : PRINT “DIGITE * PARA 
RETORNAR PARA O MENU.“:Z = 
0 
PRINT = INPUT “ATIVIDADE “;A 
GL = LEN (AS) 
LF AS = “x” GOTO 365 
PRINT = FOR J=4 TOLz IF MIDS 
(AG, J,1) 4 > “=” GOTO 585 
C = ( VAL ( LEFTS (AG,J — 19) 
- GB) * 10005R = VAL € RIGHTS 
(ABL = JD) — SBEK = C + RIU 
= L3Z=4 
NEXT Jz IF Z = 0 GOTO 600 
Z =0: FOR J=4 TOTA: IFK= 
AD(J,4) THEN Z = 43K = JE) = 
TA 
NEXT S 


By 


e Microcomputadores Pessoais 
e Profissionais, Software, Suprimentos 
e Cursos. 

e Financiamento em até 18 meses sem 
entrada e os preços mais baixos do 
mercado. 

e Atendimento perfeito, profissionais 
treinados e habilitados para dar a você 
a certeza de um bom Investimento. 


EQUIPAMENTOS 


CP-400. CP-500 com 1 ou 2 Drives * 
Apple II TI com 48K ou 64K * 


Impressoras º Vídeos º Interfaces e Etc. 


SUPRIMENTOS 


Formulário Contínuo º Disquetes º 
Fitas * Mesas * Etiquetas * Etc. 


SOFTWARE 


Nacionais e Importados mais 
de 2.000 programas e 
jogos de todas as linhas. 


CURSOS 
Basic º Basic Avançado e DOS. 


Av. Ataufo de Paiva, 566 
sobreloja 211 e 202 
Rio de Janeiro - R.J. 
Tels.: (021) 239-2798 e 511-0599 


Dados 


sistemas de banco de dados 


CURSOS 
DISPONIVEIS 


º Introdução à Microcomputação 

* DOS — PC "Sistema Operacional” 
* UNIX "Sistema Operacional” 

* UNGUAGEM C "Ling. Programação” 
* dBASE II "Programação Básica” 

e BASE II "Program. Avançada” 

* dBASE III "Program. Básica” 

* LOTUS 1-2-3 “Plan. Eletrônica” 

* Framework "Sistema Integrado” 
º Symphony "Sistema Integrado” 

* Wordstar "Processador de Texto” 


REG. SEI N.º 0219 


MATERIAIS DIDÁTICOS: Publicações 
Técnicas desenvolvidas em 
português. 

RECURSOS DIDÁTICOS: Conceitos 

e exemplos práticos, através de 
Micros e Telão de 792" 

CURSOS FECHADOS € ABERTOS 

CO ISOS ICONS EN(O ED 
285-0132 - Al. Santos, 336 - Cj 49 
CEP 01418-SP 
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a00 


aos 


610 


625 
630 


635 
640 
645 
650 
655 
660 
665 


670 


680 
685 


“ 690 


693 
700 
705 
706 


710 
720 
723 


730 


735 


739 
760 


765 
770 
775 
780 
785 
790 
795 
Boo 
805 


810 


813 


820 


830 


IF Z = 6 THEN PRINTONÃO EX 
ISTE ESTE NUMERO": FOR J= 4 
TO 20005 NEXT Jz GOTO 550 
PRINT : PRINT “A DURACÃO ATU 

AL E “rAD(K,3) 

PRINT : INPUT “ A NOVA DURAC 
ÃO E “SAGA = VAL (AG): IF 

à < O GOTO 610 
AD(K,3) = As PRINT = PRINT : PRINT 
“O RECURSO ATUAL E “FADIK,1O 

) 

PRINT = INPUT “O NOVO RECURS 
O E “sAg:A = VAL (AG): IF A 

< O GOTO 420 

AD(K,140) = Às GOTO 550 

REM «sex SELECAO DA TABELA D 
E EVENTOS ww» 

PRINT : PRINT =: PRINT” “” TAB( 
412); TABELA DE EVENTOS” 

PRINT = PRINT “ EM ORDEM ASC 
ENDENTE: “ 

PRINT : PRINT TAB( 10)"4.EU 
ENTOS “ 


PRINT : PRINT TAB( 10)“2.DA 
TA CEDO “ 

PRINT =: PRINT TAB( 10)“3.DA 
TA TARDE “ 


PRINT : PRINT TAB( 10)“4.TE 
MPO DE DURACAO”: PRINT 
PRINT = INPUT “NUMERO DE ORD 
EM “FAGIS = VAL (AG): IF S« 
1 OR S > 4 GOTO 665 
FOR J=14 TO TESSR(J) = J: NEXT 
J: IF S = 4 GOTO 700 
PRINT ” EVENTOS SELECIONADOS 
"NS =S- 43 FOR J=14 TOT 
E - 4: FORK =J+íTOTE 
IF ET(SR(J),8) < = ETCSR(K) 
+18) GOTO 490 
À = SR(JJISR(J) = SR(KITSRCK) 
=A 
NEXT Kz NEXT J 
REM “xx EXIBICAO DA TABELA 
DE EVENTOS wmx 
PRINT” ” TAB( 42)" TABELA DE 
EVENTOS “ 
PRH 4 
PRINT = PRINT =: PRINT TAB( 
22); TABELA DE EVENTOS”: PRINT 
: PRINT 
Z = 0:LN=0: FOR J=4TOTE 
:LN = LN + £: IF LN > 48 THEN 
PRINT TAB(C 45);NL1S: PRH OQ 
: GOSUB 4590 
IF Z = O THEN PRINT TAB( 4 
5)5“EVENTOS DC DT 
FOLGA”: PRINT TAB( 45)3N 
L1S:Z = 4 
K = SR(J): PRINT “ “42 PRINT 
TABC 45)5K + SB; TAB( 27);3 
IE N = 1 THEN GOSUB 740: GOTO 
735 
PRINT ET(K,1); TAB( 34)FET(K 
,2)5 TAB( 41)5ET(K,93) 
NEXT = PRINT TAB( 45);NL4G: 
PRINT : PRH O: GOSUB 1520: GOTO 
1420 
REM «xx ORDENAÇÃO DA TABELA 
DE.ÍATIVIDADE xxx 
PRINÍ =: PRINT : PRINT = PRINT 
r “ TAB( 42); TABELA DE ATIV 
IDADES”: PRINT 
PRINT « PRINT “EM ORDEM ASCE 
NDENTE 3 “ 
PRINT TAB( 10)5/4.ATIVIDADE 
dt 


PRINT TAB( 10)5"2.DURACAÃO “ 


PRINT TAB( 10);“3.ULTIMA DA 
TA DE INICIO “ 

PRINT TAB( 10)54.ULTIMA DA 
TA DE TERMINO” 

PRINT TAB( 10);/5.PRIMEIRA 
DATA DE INICIO “ 

PRINT TAB( 40)564.PRIMEIRA 
DATA DE TERMINO “ 

PRINT TAB( 10)5“7.FOLGA TOT 
AL” 

PRINT TAB( 410)/5"B.FOLGA LIV 
REZ 

PRINT : INPUT “NUMERO DE ORD 
EM “;AG:S = VAL (AG): IF S«< 
14 OR S > 9 GOTO 8140 

S=S + 45 IF S=q THENS = 
4 

PRINT": PRINT “ATIVIDADES SE 
LECIONADAS”: FOR J = 4 TO TA 
ESRCJ) = J: NEXT Jº IF S=4 
GOTO BS 

FOR J=4 TO TA - 4: FORK = 
J+ 4 TO TA 

IF ADCSR(J),S) € = ADCBRIK) 
+8) GOTO B40 € 


GRCJIESROJ) = SRCKIESR(K) 
= á 
846 NEXT K: NEXT J 
845 REM we» EXIBICÃO DA TABELA 
DE ATIVIDADE POR NUMERO DE D 
IAS xxx 
850 PRINT : PRINT” “ TAB( 42)“T 
ABELA DE ATIVIDADES”: GOSUB 
1620: IF N= 4 GOTO 905 
855 Z = 0:LN=0:FORMAJ=41TOTA 
2P = SRCJ)EF = INT (AD(P,4) 
/ 14000):T = AD(P,ã) - F x 4 
000 + SB 
860 F = F + SB:I6 = STR$ (F):Itg 
= STR$ (T):BS = 16 + “=” + 
11% 
865 LN = LN + 4: IF LN > 48 THEN 
PRINT TAB( S);5LN$: PRH O: GOSUB 
1590 
870 PRH 4: IF Z = O THENPRINT 
: PRINT : PRINT : PRINT =: PRIÍni: 
E PRINT : PRINT 2: PRINT O ” TAB( 
37)3” TABELA DE ATIVIDADES - 
EM TERMOS DE DIAS“: PRINT 
: PRINT TAB( S);5LNS 
875 IF Z=O THEN PRINT KXTAB(OE 


835 A 


in 


6) F "ATIVIDADE DUR 
PDI PDT UDI UDT 
FL FT REC”: PRINT 


TAB( S)FLNS 
B80 IF AD(P,2) = 14 THEN PRINT TAB( 
5)5865%*“;5 PRINT TAB( 44); 
ACSP); GOTO B96 
885 PRINT TAB( 5);B6; TAB( 114); 
ACHCP)s 
B90 Z = 64: PRINT TAB( 44) 
895 FOR K = 3 TO 4ABOS:DGCK) = STR$ 
(ADCP,K)):Zí = 6 —- LEN <DG( 
K)) + 15 PRINT SPC( Z1í)s STR$ 
CADCP,K)D)s 
900 NEXT Kz PRINT : NEXT J: PRINT 
TAB( S);LNS: PRH O: GOSUB 1 
520: GOTO 1426 
905 PRH 1:72 = O2:LN = 0: FOR J= 
1 TO TASP = SRCJ)IF = INT « 
AD(P,1) / 1000):T = AD(P,1) - 
F x 1000 + SB 
910 F = F + SB:66 = STR$ (F)5G15 
= STR$G (F):G1Í6 = STR$E <T) 
AG = 66 + “=” + 616 
915 LN = LN + 4: IF LN > 48 THEN 
PRINT TAB( S);LNE: PRH O: GOSUB 
1590 


020 . IF Z = O THEN PRINT : PRINT 


= PRINT : PRINT : PRINT =: PRINT 
“É PRINT : PRINT O” TAB( 37) 
F“TABELA DE ATIVIDADES -. EM 
TERMOS DE DATAS”: PRINT : PRINT 
TABC S);LNS 
925 IF Z=w THEN PRINT TAB(E 
6)5“ ATIVIDADE 
DUR PDI PDT 
UDI UDT”: PRINT 
TAB( S);LNS 

930 IF AD(P,2) = 4 THEN PRINT TAB( 
S)sA650%“sa PRINT TAB( 41); 
ACS(P);: GOTO 940 

935 PRINT TAB( 5);6S; TAB( 44); 
ACS(P); 

740 GOSUB 280 

P4S Z = 427: PRINT TAB( 593);:L5$ = 
STR$ (AD(P,3)):L6 = LEN (1 
S)IL7 = 3 - Ló + 47: PRINT SPC( 
L7); STR$ (AD(P,3)); 

PS50 FOR K = 4 TOZ:ND=AD(P,K) + 
TD - 4: GOSUB 35:L1i = 10 - LEN 
(L2%) + 147: PRINT SPCC Lidgl 
ob; 

955 NEXT K: PRINT =: NEXT J: PRINT 

TAB( 5)3LNS 
9260 PRH O: GOSUB 1520: GOTO 1420 


265 REM xx EXIBICAO DAS ATIVID 
ADES CRITICAS wxx 

970 PRINT =: PRINT” TAB( 10)“A 
TIVIDADES CRITICAS” 

975 Z = QILN=0: FOR J=4TOTA 
LN = LN + 1: IF LN> 48 THEN 
PRINT TABC S);LNG: PRH O: GOSUB 
1590 

980 PRH 4 

985 IF Z =O THEN PRINTS PRINT 
: PRINT : PRINT £: PRINT 2 PRINT 
: PRINT = PRINT O TAB( 37) 
“ATIVIDADES CRITICAS”: PRINT 
: PRINT TABC 5);LNG 

990 IF Z=O THEN PRINT ABC? 
695“ ATIVIDADE 

DUR DATA DE INICIO D 

IAS CORRIDOS”: PRINT TAB( 5 
35 LNG 

995 Z =4 

1000 IF ADCS,2) = O GOTO 1025 


1005 F = INT (AD(J,i) / 1000):T = 
ADC(S,1) —- F 4 1000 + SBIF = 
F + S9B 
1010 J6 = STR$ (F)zkKS = STR$E CLT 
DAS = 45 += + Kg 
“015 PRINT TAD( S);AT; TAB( 11) 
FACSC(J); TAB( 48);3L8% = STRI 
(CAD(J,3))5L9 = LEN (LOG)ILO 
= 6 - L9 + 4: PRINT SPC( L 
0); STR$ (CADCJ,3)); 
1020 ND = AD(J,6) + TD - 4: GOSUB 
95:Mi = 15 - LEN (L26) + 44 
PRINT SPC( MÍDFLOGEIVE = STR! 
(AD(J,6)):T = LEN (VG)ITA = 
10 - T + 1: PRINT SPC( Tí); 
STR$ (ADCI,6)) 
1025 NEXT J: PRINT TAB( S)ysLNG: 
PRH O: GOSUB 15207: GOTO 442 
ú 
1090 REM sex GRÁFICO DE GANTT * 
x : 7 
1035 GOSUB 1855 
1040 FOR Ji = 14 TO AD(TA,7) STEP 
60:)93 = Ji + 59 
1045 Z = O5LN=0: FOR JS=1TOT 
ASF = INT (AD(J,1) 7/7 1000): 
T = AD(JS,1) —- F * 1000 + SB 
1050 F =F + SB:J6 = STR$ (F):kS 
= STR$ (T)IDG = 45 + “= + 
K& 
1055 LN = LN + 4: IF LN > 48 THEN 
PRINT TAB( 45)g/========== 
“:LN6: PRH O: GOSUB 1590 
1040 PRH 45 IF Z=4 GOTO 4105 
1065 PRINT : PRINT 3: PRINT : PRINT 
2 PRINT É: PRINT : PRINT : PRINT 
TAB( 47);“GRÁFICO DE GANTT” 
: PRINT & PRINT TAB( 45)7"= 
dasssu=22" NS 
1070 PRINT TABC 37)5“ATIVIDADE 
“sJiy SPC( 3 
RA + 4515 FOR J2 = 9 TO 59 STEI 


1075 JP = J2 + JISPE = STR$ (99) 
:Bi = LEN (PS):B2 = 4 - Bí + 
4: PRINT SPC( B2);J9;: NEXT 
Jes PRINT 

1080 GOSUB 280: GOSUB 1645 

1085 PRINT 

1090 PRINT TAB( 5935” 
J2 = 4 TO 59 STEP 5 

1095 PRINT “=--+—"“s2= NEXT «J2: PRINT 
32 = 1 

1100 PRINT TAB( 64);: FOR IJí =- 
Ji TO J3: PRINT VES(IJ14)s: NEXT- 
IJi: PRINT 

1105 IF AD(J,2) = 4 THEN PRINT 
TAB( 145)7865%";: PRINT TAB( 
Oi)FACS( Jd); GOTO 41445 

1110 PRINT TAB( 15);B%; TAB( 24 
JFACECJ)S 

1145 IF (AD(I,4) < J1i AND AD(S,S 
D 4 Ji) OR CAD(J,4) > JI3 AND 
AD(J,5) > J3) GOTO 1485 

1120 AS = “93 IF AD(J,2) = 4 THEN 


“mg “ 


LEN CACGCIIIEIU = 44 — 


+“;3 FOR 


Wi + 2 
1130 PRINT SPC(< W); 
1135 FOR K = J41TO JS: IFKGaAD 
(3,4) OR K > ADC(J,5) THEN 414 
45 
1140 GOTO 1140 
1145 IF VESCK) € 5” “ AND VESC 
K) € 5 “PF” THEN PRINTO”; 
:* GOTO 11455 
1150 PRINT O“; 
1155 NEXT k 
1160 FOR K = Ji TO J3: IFK >= 
ADCI,4) AND K < = AD(I,5) AND 
ADCS,3) € > 0 THEN 1176 
1165 GOTO 1100 
1170 IF VEGIK) < 5)“ “ AND VEGC 
K) € 5 “F” THEN PRINT AG: 
GOTO 1180 
1175 PRINT O *; 
1180 NEXT K 
1185 PRINT =: NEXT J: PRINT TAB( 
15)5/====2==2=="4| N$: PRH 95 
GOSUB 1520: NEXT Jt 
1120 PRH 1: PRINT : PRINT : PRINT 
-* PRINT = PRINT =: PRINT : PRINT 
* PRINT TAB(C 44);“FERIADOS 
NO PERIODO”: PRINT : PRINT TAB( 
44)p==========2a==0==0=": PRINT 
: PRINT 
1195 FOR INA = 4 TO 041: IF GND(I 
NÃO €< = 2 OR GND(INA) > J9 THEN 
1205 
1200 PRINT TABC 47);GNP(INA);: 
D = GND(CINA) + TD - 4: GOSUB 
35: PRINT “-“sLoG; =" += GOSUB 
1660: PRINT NG: PRINT = NEXT 
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Leno 


1410 


toto 


1220 


ido 
1265 
1270 
1275 
1280 
1285 
1290 


1295 


1300 


1395 


1310 
1313 
1320 
1325 
1330 
1335 
1340 
1345 
1330 


1335 


1360 


1365 


13970 


1375 
1380 
1385 
1390 


1395 


1400 
140% 
1410 
1415 
1420 
1425 
1430 
1433 
1440 


1443 


INA 
NEXT INA: PRINT 2 PRINT TAB( 
NA efsaesces-casnsasnc===2" E PRH 


0: GOSUN 15207 GOTO 1420 
REM uxx EXTHICÃO DO GRAF IC 
O DE RECURSOS UTILIZADOS mx 


J2 = AD(TA,S) —- 1: FOR J = 4 

TO J2 STEP 90: PRH 47 PRINT 

: PRINT = PRINT = PRINT = PRINT 
E: PRINT = PRINT : PRINT TAB 
15);RECURSOS UTILIZADOS”: PRINT 
: PRINT TABC 4S);LNS Co 

PRINT TAB( 25);R56: PRINT 

ADC 35)7LNG: PRINT TABC 1 
5)3” 17: FOR K = 5 TO 


oo STEP 5: PRINT o SPCC 3)4: PRINT 


TABC K + 1)7K5E NEXT K 

PRINT =: PRINT TAB( 45)7“DI 
As “e 

J3 = J + 29:57 = 21: FOR Jí = 
J TO J3: IF di > Jo THEN Jt = 


“Ja GOTO 1255 
1 X = 0: PRINT : PRINT SPC( 1 


ls 
FOR K = 1 TO TÃO IF Jí » = 


ADCK,4) AND Ji < = AD(K,5) THEN 
x =X + AD(K,10) + 

NEXT K: PRINT TAB( 45); Jiy 
: FOR K = 20 TO 4 STEP — 45 
PRINT TAB( Z);: IFK< = 
xXx THEN PRINT “%”; 

NEXT K 
NEXT J£z PRINT = PRINT TAB( 
15) ;5LN6: PRH O: GOSUB 1520: NEXT 
J: GOTO 1420 
REM sm» CHAMAR A REDE DO D 
ISCO su» 

INPUT “ NOME DA REDE “;NWH$ 
DE = CHR$ (4) 

PRINT D$;"OPEN“;NWS 
PRINT D$65“ READ ;NW% 

INPUT TE, TA,SDE 
GOSUB 1400 
FOR J = 4 TO TE: FOR K = 4 TO 
3: INPUT ET(J,K): NEXT K: NEXT 
J 
FOR J= 14 TO TE: FORK = 1 TO 
TE: INPUT PT(J,K): NEXT K: NEXT 
J 
FOR J=4 TO TA: FOR K = 4 TO 
10: INPUT AD(J,K): NEXT K: NEXT 
J 

FOR J = 4 TO TA: INPUT ACS( 
J): NEXT J: INPUT SB,SD 

PRINT D$; CLOSE“ ;NWT 
GOTO 1420 

REM xm* GUARDAR À REDE NO 
DISCO wx* 

INPUT “NOME DA REDE “;NWS 
D6 = CHR$ (4) 

PRINT D$;“0PEN“; NUS 

PRINT D$6;“WRITE“;NWS 

PRINT TE: PRINT TA: PRINT 5 
D% 

FOR J=4 TO TE: FORK = 4 TO 
3: PRINT ET(J,K): NEXT K: NEXT 
J 

FOR J=4 TO TE: FOR K = 4 TO 
TE: PRINT PT(J,K): NEXT K: NEXT 
J 

FOR J=14TOTA:FORK =4 TO 
10: PRINT ADC(J,K): NEXT K: NEXT 
J 

FOR J=4 TO TA: PRINT AC& 
J)sCR$6;: NEXT J: PRINT SB5CR 
&; 

PRINT SDs PRINT TD: PRINT D 
G:“CLOSE“;NWE: GOTO 1420 

PRINT D$;“CLOSE NW6” 

GOTO 1420 

REM xXm SAIDA DO PROGRAMA 
Xu. 

PRINT : PRINT “VOCÊ TEM CER 
TEZA DE QUE QUER PARAR ? (S/ 
N) “e 

GET AG: IF AG =“ “ GOTO 14 
[17 

IF AG < > “8” GOTO 14206 

PRINT “FIM: END 


REM nem MENU sx» 

PRINT = PRINT 5: PRINT” “ TAB( 
7)" 0PCOES” 

PRINT “0.CONSTRUCAO DE UMA 
REDE “ 


PRINT “41.CORRECAO DE DADOS 


PRINT “2.MOSTRA À TABELA DE 
EVENTOS “ 

PRINT “3.MOSTRA A TABELA DE 
ATIVIDADES “ 

PRINT “A4A.MOSTRA O GRÁFICO D 
E GANTT E FERIADOS” 
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1450 PRINT OS.MOSIRA AS ATIVEDAL 
ES CRITICAS” 
1454 PRINT TS.MOSIRA 09 RECURSOS 


UTILIZADOS “ 

1460 PRINT OZ.CHAMA À REDE DO DI 
SC0 “ 

1444 PRINT TO GUARDA À REDE NO D 
ISCO * 

14720 PRINT “P.SAIDA DO PROGRAMA 
+ 


1475 PRINT =: INPUT “QUAL O SEM N 
UMERO “GAS 

1400 A = VAL <A IF AL O ORA 

» 9 GOTO 1420 

1485 AF CA = 0 OR À =7) ANDANU = 
1 GOTO 1500 

1490 IF O(A > O ANDAS Z»>awR A 
8) AND NW = O GOTO 150% 

1496 NW = 1: GOTO 415450 

1500 PRINT 2: PRINTO A REDE JA E 
STA NA MEMORIA “: GOSUB 1526 
: GOTO 1420 

1505 PRINT 2 PRINT” A REDE NãO 
ESTA NA MEMORIA “: GOSUB 152 
0= GOTO 1420 

1510 ON À + 1 GOTO 100,520,695,7 
60,109353,970,1213,1265,1330,1 
IPS 

1515 REM xxx PAUSA nxx 

1520 PRINT 5 PRINT TAB( B)“PRES 
SIONAR ESPACO PARA CONTINUAR 


1525 GET AS: IF AG 4 >" GoTo 


ises 


1530 RETURN 
1535 REM xe* INICIALIZAR nas 


1540 LNS = “======c58===5==530202== 
==nss=ncssas==ss0===20=" 16956 
= “RECURSOS” 

4544 NLIE = “xazs=s=sssanesnsecas= 

1545 DiS = “912831303130313136913 
03147 

1550 D2G = “9129931303130313130913 
031” 


1555 DIS = “000031059090120151181 
212243273304334"2TFS = “=";F 
Fg = do God 

1560 J = 05K = 0:D1i = 0:D2 = 0:D3 


= 02YN O:ND = 0:DN = 0:TD 
=0 
1565 Ai = 94:A2 = 365:A9 = 3:A4 = 
4:85 = 31:h6 = 72:A7 = 4:AB = 
o a 
1570 C = 0:R = 0:X = Q5A = 0:D = 
0:M = 0:Y = 0:5D = 0:F = 0:T 
=0:5 = 0:P = O:AN = 0 
1575 SB = O:TA = O:FTE = O:LN = 0: 
NW = 0:N = 0 
15B0 AS = ““:BG = ““:DG = ““:SD$ = 


“CG = “CECR6 = CHR$ (19): 
RETURN 

1505 REM sm» LINHA DE CORRESPON 
DENCIA DA TELA mwx 

15970 GOSUB 1520:LN = 4:Z = 0: RETURN 


1595 REM sax DIMENSIONAMENTO DA 
S MATRIZES um 

1400 DIM ACSCTA),PTCTE, TE), ADCTÁ 
110) ,ET(TE,3) 

14605 Z = TE: IF TA > TE THEN Zo= 
TA 

14610 DIM SR(Z): RETURN 

1615 REM x*m ESCOLHA DO FORMATO 
EM DATA OU NUMERO DE DIAS + 
“x 

1620 IF SD = 14 THEN N=2: G0TO 
1440 

1625 PRINT : PRINT “TABELAS EM T 
ERMOS DEz-Í.DATAS “ 

1630 PRINT TABC 23)"2.DIAS”: PRINT 


1635 PRINT =: INPUT “QUAL O SEU N 
UMERO? “rAGBIN = VAL (AG): IF 
N< 1 OR N5>2Z GOTO j16a5 
1440 RETURN 
1641 REM *x* IMPRESSÃO DAS DATA 
S xxx 
1645 ND = Ji + TD - 4: GOSUB 35: PRINT 
TAB( S2);L26B;:DA = LEN (L2 
G):DAL = 5 —- DA + 5: PRINT SPC( 
DAL)s 
1450 FOR Já =9 TO SP STEP LOzIZ 
= Já + JíEND = JZ + TD -—- 45 
GOSUB 35: PRINT L26;:DA = LEN 
(L2b):Dãi = 5 - DA + 535 PRINT 
SPC( DáiL)y: NEXT Já 
1655 RETURN 
1656 REM x** CÁLCULO DO DIA DA 
SEMANA Numa 
1660 Y = VAL « RIGHTS (L2G,2))M 


= VAL € MIDS (L25,4,2)):D = 
VAL ( LEFTS (L26,2)) 

1465 ME = M:ANÍí = Y:DI =D 

1670 IF ME >) 2 THEN 1685 

1675 ME = ME + 42 

1680 AN1A = ANt£ - Ss 

1685 ANt = AN1I + 1900 

690 NS = DI + 2» ME + INT(C.6 4 
(ME + 1)) + ANS + INT (ANÍ/ 
49 = INT (ANA / 100) + INT 
(ANA Z 400) + 2 

1695 NS = INT ((NS 4/2 7 = INT GN 
S 4 233 47 4 05) 

1700 IF (NS) ) O THEN 1740 

1705 N$ =“ “3 GOTO 1765 

1710 IF NS > 4 THEN 1720 

1745 NE =“ “: GOTO 1765 

1720 IF NS > 2 THEN 1730 

1725 NG = “8: GOTO 1765 

1730 IF NS > 3 THEN 1740 

1735 NE = “Ts GOTO 1765 

17240 IF NS >» 4 THEN 1750 

1745 N$& = “QB”: GOTO 1765 

1750 IF NS > 5 THEN 1760 

1755 N$ = “0”: GOTO 1765 

1760 N$ = “5”: GOTO 1765 

1765 RETURN 

1766 REM w** CALCULO DOS FERIAD 
0S “xx 

1770 GOSUB 280 

1775 FERIADOS = “2501840503840603 
B407038420048421048430048401 
0584210604220684070984121084 
0211841511841611842412842512 
84311284” 

1780 DMAS = SDS 

1785 FERIADOS = FERIADOS + DMAS 

1790 O = LEN (FERIADOS):01 = O 
é : 

1795 M5 = 4 

1800 FOR MI =4TOO-sS STEPS 

1805 Mi = M3 + 22:M2 = M3 + 4 

1810 LDIA = VAL «< MIDS (FERIADOS 
+M3,2)) 


4815 LMES = VAL ( MIDS (FERIADOS 


+M1,2)) , 
1820 LANO = VAL «< MIDS (FERIADOS 
+M2,2)) 
1825 LTD2 = LDIA + (LANO - 72) * 
365 + INT ((LANO — 49) 4 4) 
+ VAL < MIDS (D3E,3 * LMES 
nd 2,3)) 
1B30 IF LMES >» 2 AND (1900 + LAN 
0) 7 4 = INT ((1900 + LANO) 
/ 4) THEN LTD2 = LTD2 + 4 
1835 AB9 * LTD2 - TD + 4: IF AB9 « 
O THEN 1845 
1840 GND(MS) = AB9:M5 = M5 + 1 
1845 NEXT M3 
18350 RETURN 


4851 REM xxx MONTAGEM DO VETOR 


CALENDARIO ux% 

1855 DIM VES(240),GND(240) 

1840 GOSUB 280: FOR Ní = 1 TO 24 
O:ND = Ná + TD - 4 

1865 GOSUB 35 

1870 GOSUB 1460 

1875 VEG(N1L) = N$ 

1880 NEXT Ná 

1885  GOSUB 4770 

1890 FOR MN4 = 4 TO 240:AB1 = GN 
D(MN£) 

1895 IF ABL «< =2OR ABL > 240 THEN. 
1905 

1900 FO% = “FYIVES(CABI) = FOG 

1905 NEXT MNí 

1910 FOR 4=4TOTA 

1915 FORK = 4 TO 240: IFK CAD 
(4,4) THEN 414925 

1920 GOTO 1940 

1925 IF VES(K) € >“ AND VESC 
Kk) < > “F“ THEN 4960 

19390 AD(J,5) = AD(J,5) + 1:AD(J,4 
) = AD(J,4) + 1:AD(J,6) = AD 
ed + 12AD(J,7) = ADCJ,7) + 

1935 GOTO 1940 

1940 IF K > =AD(J,4) ANDK(< = 
AD(J,5) THEN 1950 

1945 GOTO 1960 

1950 JF VEGCK) € 5“ AND VESC 
kJ € 5» “F” THEN GOTO 1940 

1955 AD(J,5) = ADCJ,S) + 17ADC(J,7 
* = ADII,7) + 4 

19640 NEXT K 


+» 1965 NEXT J 


1970 RETURN 
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Complete seu sistema de redes PERT com um Numerador 
Topológico que apronta seus dados para rodar no programa 
Análise do Caminho Crítico, da Microsoft 


Renumerador 
Topológico 


Evandro Curvelo Hora 


maioria dos programas para cálculo do caminho crí- 

tico (em redes Pert) aceita apenas o grafo topológi- 

co. O programa a seguir, desenvolvido para os equi- 
pamentos da linha Sinclair com 16 kb, renumera um grafo to- 
pologicamente. 

Um grafo é dito topológico se existir um arco do nó I para 
o nó J. Este arco é tal que J>1, qualquer que seja o arco (1, 
J), ou seja, só podem existir arcos que saiam de um nó numera- 
do para outro nó de numeração superior. Veja as figuras 1 e 2. 

O grafo da figura | é topológico, pois todo arco que sai de 
um nó vai para outro nó de numeração superior. Já no grafo 
da figura 2 isto não acontece, pois o arco 5 sai do nó 4 para o 
nó 3. 

Um grafo não topológico (figura 2) não é aceito pelo pro- 
grama Análise do Caminho Crítico, da Microsoft, para a linha 
Sinclair. Se o grafo tem poucos nós e poucas atividades (arcos), 
pode-se renumerá-lo manualmente. Porém, redes reais exigem 
normalmente muitos nós e/ou arcos, o que torna o problema 
muito difícil, daí a justificativa deste artigo. Na Pesquisa Ope- 
racional, uma das maneiras de se representar um grafo é a cha- 





Figura 1 


mada Matriz de Adjacência, e o programa apresentado é um 
manipulador desta matriz. 

Com o numerador topológico já na RAM do seu micro, 
inserindo-se o grafo da figura 2, tem-se como resposta: 


DESEJA RODAR NOVAMENTE 7 (5/28) 





Figura 2 
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Ou seja, os nós 1 e 2 não precisam ser renumerados; entre- 
tanto, o nó 3 deve ser renumerado com ordem 4,e o nó 4 com 
ordem 3. Isto reduz o gráfico da figura 2 ao gráfico da figura 1, 
que é topológico e roda, sem problemas, no Pert da Microsoft. 

Experimente dar uma numeração topológica ao grafo da fi- 
gura 3. 

Na tela, ao rodar, o programa pede o número de nós do gra- 
fo; então entra-se com 5 e <NEWLINE»> . Logo após, ele pede 
o número de atividades e tem como resposta 8. A seguir, é 
pedido, para a atividade 1,0 nó inicial; digite 5. Neste momen- 
to, é pedido o nó final, então, responda com 2. Depois, é pre- 


ciso confirmar a resposta entrada com sim <S>ou não <N>; 


faça o mesmo com todos os arcos. Ao confirmar a entrada 
do último arco, o programa pede que aguarde e entra em 
FAST, retornando ao SLOW já com resposta. Note que, neste 
caso, não é possível a numeração topológica, uma vez que o 
grafo da figura 3 representa um ciclo (saindo do nó 5, seguindo 





Figura 3 
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as atividades 2, 6 e 3 e voltando ao nó 5). Tente trocar agora o 
sentido da atividade 3, de modo que saia de 5 e vá para 3, e ve- 
ja a resposta. Como curiosidade, experimente, também, ten- 
tar renumerar topologicamente um grafo já topológico. Tome 
como exemplo o grafo da figura 1. 


INSTRUÇÕES PARA DIGITAÇÃO 


Crie uma linha REM com 15 caracteres quaisquer. Isto per- 
mite guardar uma rotina em linguagem de máquina que simula 


o SCROLL, sem as desvantagens que o SCROLL normal apresen- 
ta. A seguir, digite as linhas 1000 a 1040. Dê um GOTO 1000, 


ao aparecerem as aspas, entre com os seguintes valores em he- 
xadecimal (após o 2A, PR <NEWLINE > e assim por diante): 


2A 2º 1 DD 12 Ci Gi D6 


pH 
“Is 
EE A 
pali 
avi] 
| 
| 
Ha 


t 


pa terminar, se tudo correr bem, retire as linhas 1000 a 
1040 e entre com o resto do programa até a linha 990, Para 
evitar o risco de digitar a linha | digite POKE 16510,0..Dê um 
LIST e seu programa estará pronto. É só testar com os exem- 


plos citados e gravar com GOTO 940. a 


: =] 
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Para empresas que trabalham com grande número de duplicatas, este progra- 
ma para a linha TRS-80 Mod. III vai agilizar o Departamento Financeiro. 











duplicatas 


Paulo de Carvalho 


ste programa permite ao usuá- 

rio um controle de duplicatas 

pendentes de pagamento, além 

de oferecer as opções de con- 
sulta por sacado, por data, por sacado 
em determinado período, listagem geral 
de pendências (vincendas/vencidas), lis- 
tagem de duplicatas vencidas, baixar/de- 
letar e listagem de duplicatas baixadas 
(pagas). 

Após digitado o programa, execute-o 
com RUN. Na tela, aparecerá Digite a 
data na forma AAMMDD, após o que 
deverá ser digitado o ano, mês e dia, nes- 
ta ordem, e sem qualquer separação. Es- 
sa regra deve ser seguida rigorosamente, 
pois isto facilita a pesquisa por data e a 
listagem de duplicatas vencidas. Após a 
entrada da data, o programa mostrará o 
menu principal, que dá acesso a 12 mó- 
dulos optativos, conforme pode ser vis- 
to a seguir: 


COBRANCA 
ENTRADA DE DUPLICATAS «aum 
LISTAGEM/GERAL DUPILITO uu 


Po em 


LISTAGEM PLDATA ua nnan Us 
LISTAGEM PZGBACADO qmnnmnun 4 
LISTAGEM P/5ACADO E DATA- 5 
LISTAGEM DUP LIQUIDADAS «mm 6 
LISTAGEM DUP VENCIDAS «uu 7 
BATXAR/DELETAR DUPLICaso 8 
ALTERAR DADOS a nanmnmemaam 9 
CONTINUAR ARQUIVOS auumuno 40 
GRAVAR ARQUTVO «umnmunu ma ço 44 


LER ARQUIVO. suanennmunanem Lo 
DIGITE À OPÇÃO 4 
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ENTRADA DE DUPLICATAS 


Ao digitar 1 e ENTER o programa 
exibirá o menu de entrada de duplicatas, 
formado pelos seguintes itens: 

e ITEM 1 — Vencimento — digitar na 
forma AAMMDD. 

e ITEM 2 — Nº Duplicata — Entrar 
com o número da duplicata, que deverá 
ter no máximo quatro caracteres (9999). 
Evite também entrada de duplicatas 
com o mesmo número. 

e ITEM 3 — Situação — Durante a en- 
trada de duplicatas, o sistema aceitará 
somente a situação 1 (um). Se o usuário 
digitar qualquer outro número o sistema 
retornará ao item acima, 

e ITEM 4 — Banco/Cobrador — Digitar 
o código do Banco no qual a duplicata 
estiver em cobrança. No caso da cobran- 
ça estar na dependência do favorecido, 
use o código 111. Estes códigos não po- 
dem ultrapassar os três caracteres. 

e ITEM 5 — Sacado — Entrar com o 
nome do sacado, usando no máximo 22 
caracteres, contando os espaços. 

e ITEM 6 — Valor — Digite o valor da 
duplicata de forma ininterrupta, pois o 
sistema formatará a saída. Ex.: para o va- 
lor Cr$ 388.900,00, digite Cr$ 388900. 
Na listagem, o sistema formatará a saída 
para Cr$ 388.900,00. Quando a dupli- 
cata possuir centavos, use ponto antes 
dos centavos. Ex.: para o valor Cr$ 
388.900,88; digite Cr$ 388900.88. 
Após digitar o valor e teclar ENTER, o 
sistema retornará ao menu de entrada e 


Em dia com as 





o número sequencial do topo da tela se- 
rá 2 e assim sucessivamente. Para voltar 
ao menu principal, tecle 9 no lugar do 
vencimento. 


LISTAGEM GERAL 


Através desta opção o programa lista- 
rá todas as duplicatas pendentes de pa- 
gamento (vincendas e vencidas) em gru- 
po de oito, com sub-total acumulado. 
Quando aparecer a última duplicata do 
arquivo, será emitida a mensagem FIM, 
seguida do total geral. 


LISTAGEM POR DATA 


Este módulo permite pesquisar todas 
as duplicatas com vencimento em deter- 
minado período. Assim, se o usuário de- 
sejar saber quais são as duplicatas com 
vencimento entre 3 de agosto e 22 de 
outubro de 1984, basta digitar 3 seguido 
de ENTER, que o sistema perguntará: 
“Qual a data inicial?”. O usuário deverá, 
então, digitar na forma AAMMDD, isto 
é, 840803; e teclar ENTER. Em seguida, 
o programa indagará “Qual a data fi- 
nal?”. O usuário deverá digitar 841022 e 
teclar ENTER, No vídeo aparecerá uma 
listagem semelhante à listagem geral. 


LISTAGEM P/SACADO 
Ao digitar 4, o sistema perguntará: 


“Qual o sacado?”. O usuário deverá en- 
trar com o nome do sacado e o progra- 
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ma iniciará a listagem de todas as dupli- 
catas existentes com aquele nome. 


LISTAGEM P/SACADO E DATA 


Entrando com a data de início e fim 
do período desejado, mais o home do 
sacado, o usuário obterá uma listagem 
com todas as duplicatas do sacado em 
um período estabelecido. 


LIST AGEM DUPLICATAS 
LIQUIDADAS 


Através desta opção, o usuário pode- 
rá verificar todas as duplicatas liquida- 
das existentes em arquivo. A forma de 
liquidação será comentada na opção 8. 


LISTAGEM DE DUPLICATAS 
VENCIDAS 


O ponto chave de comparação para a 
emissão desta listagem é a entrada corre- 
ta da data na forma AAMMDD, solicita- 
da na abertura do sistema. A listagem se- 
rá idêntica às fornecidas pelos itens an- 
teriores. 


BAIXAR/DELETAR DUPLICATAS 


Ao digitar esta opção, o sistema per- 
guntará “Qual o nº da duplicata?” (hor 
isso, deve-se evitar duplicatas com o 
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mesmo número). Uma vez dado o nú- 
mero, o sistema pesquisará e mostrará 
no vídeo todos os dados relativos à du- 
plicata, seguidos da pergunta “É essa a 
duplicata a liquidar/deletar S/N?”. Em 
caso positivo, o sistema exibirá duas op- 
ções: 2 — para liquidar; e 3 — para dele- 
tar. A diferença entre essas duas opções 
é que na opção 2 o sistema liquidará a 
duplicata alterando automaticamente a 
situação de 1 (pendente) para 2 (liqui- 
dada) e manterá todos os dados no ar- 
quivo; enquanto na opção 3 ele altera- 
rá todos os itens numéricos para zero e 
eliminará todos os alfanuméricos. Isto 
poderá ser visto através das opções 2 ou 
7. Embora os itens estejam com os cam- 
pos zerados, eles continuam ocupando 
espaço na memória RAM e no vídeo, 
mas não se preocupe, pois isto será re- 
gularizado quando for feita a gravação 
dos dados no cassete, uma vez que o sis- 
tema isentará de gravação todas as dupli- 
catas que estiverem com data de venci- 
mento zerada. 

Se houver no arquivo duas duplicatas 
com o mesmo número, verifique, quan- 
do exibida no vídeo, se é a que você de- 
seja baixar. Caso contrário, digite Neo 
sistema irá pesquisar a próxima duplica- 
ta com o mesmo número. Se for infor- 
mado o número de duplicata que não 
consta do arquivo, será mostrada a 


É INCRÍVEL O QUE 
UM BOM PROGRAMA 
PODE FAZER. 


O ábaco, para quem domina sua técnica, permite a execução de contas 
aritméticas com incrível velocidade. 

Da mesma forma, quem possui um microcomputador e um bom programa 
economiza tempo, papel e aborrecimento. 

A Nasajon Sistemas, tem à sua disposição mais de 50 programas como 
folha de pagamento, crediário, mala direta etc. ... para aproveitar ao má- 
ximo o que o seu microcomputador pode oferecer. 

Além disso, a Nasajon Sistemas pode desenvolver programas específicos 
para a sua necessidade, seja ela qual for. 

Todos os nossos programas são garantidos e atualizados. 

Entre em contato com a Nasajon Sistemas. Estamos sempre dispostos a 
conversar e esclarecer qualquer dúvida que você possa ter sobre infor- 


mática. 





Q 
Você encontra os programas NASAJON também nos seguintes endereços: ê 

Rio de Janeiro: Casa Garson: 252-9191; 325-6458; 541-2345 e 252-2050 - R. 179 — Eldorado Computadores: 227-0791 — Bits e Bytes: 322-1960 8 
São Paulo: Microprocess: 64-0468 - Jundiaí SP - Apoio Com. Informática Ltda: 51-3778 — Tatuí — SP y 


E quando seu microcomputador estiver funcionando com um programa da 
Nasajon, você verá as coisas incríveis que ele pode fazer. 
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mensagem DUPLICATA INEXISTEN- 
TE, e após alguns segundos, o sistema 
retornará ao menu principal. 


ALTERAÇÕES 


Todos os dados de uma duplicata po- 
derão ser alterados com esta opção, ex- 
ceto a situação, que é obrigatória. Todos 
os itens para alteração devem seguir as 
mesmas normas da entrada de duplica- 
tas. Após teclar 9, o sistema perguntará: 
“Qual o nº da duplicata?”. Entrando 
com o número, serão exibidos todos os 
dados vinculados âquela duplicata. O sis- 
tema perguntará “E esta a duplicata a 
alterar?” Se não for, tecle N e o siste- 
ma continuará a pesquisa localizando a 
próxima duplicata com o mesmo nú- 
mero. 

Para fazer a alteração não é necessá- 
rio entrar com todos os dados novamen- 
te, mas apenas com os dados que se re- 
ferem ao item a ser alterado. Nos de- 
mais, tecle ENTER e o sistema desvia- 
rá para o próximo campo. 


CONTINUAR ARQUIVO 


Se o usuário já possuir um arquivo 
gravado em cassete com 50 duplicatas e 
desejar cadastrar outras 50, basta fazer. 
a leitura de dados através da opção 12 e &8 
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logo após entrar com a opção 10. O sis- 
tema iniciará a leitura interna da variá- 
vel de controle e após alguns segundos 
aparecerá no vídeo o menu de entrada 
de dados, com o número sequencial 51, 
no topo da tela. 


GRAVAR ARQUIVO 


Todos os dados de entrada de dupli- 
catas, alterações e deleções podem ser 
arquivados em fita cassete com esta 
opção, que também permite gravar a 
continuação de arquivo. O sistema mos- 
tra a mensagem “Gravação — Prepare o 
K-7 e tecle (ENTER)”. Após a grava- 
ção da última duplicata, o programa re- 
torna ao menu principal. 


LER ARQUIVO 


A função desta opção é ler todos os 
dados arquivados em fita cassete. Após 
a leitura da última duplicata, o progra- 
ma retorna ao menu principal. 


OUTRAS INFORMAÇÕES 


Após a entrada de duplicatas, altera- 
ções, deleções e liquidações, deve ser 
feita a gravação no arquivo em cassete, 
pois as alterações só permanecem na 
memória do computador. Para sua se- 
gurança, não regrave mais de duas ve- 
zes na mesma parte da fita, pois em caso 
de desgaste torna-se impossível ler os 
dados de arquivo. 


O número máximo de duplicatas 
aceito é 199. Para ampliar o arquivo de 
memória será preciso alterar o progra- 
ma. O número da duplicata deverá con- 
ter três caracteres no mínimo, para que 
não haja deslocamento de posições no 
vídeo. O mesmo deverá ser feito para o 
código do banco. Se você teclar BREAK 
e possuir dados de arquivo na memória, 
não use RUN, pois isto fará com que to- 
dos os dados da memória sejam perdi- 
dos. Neste caso, use GOTO 80. 


Paulo de Carvalho trabalha no Departamento 
de Implantações do Banestado, em Curitiba, e 
desenvolve programas para CP-300e TK-85. 





Cobrança de duplicatas 


"PROGRAMA —- COBRANCA — AUTOR - PAULO DE CARVALHO 140 PRINT Kb; 
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10 CLEAR 5000 


30 IF DAL B408B0B GOTO 20 
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(270 PRINT K$s 


+eB0 PRINTOAX Fim xx Tecle <€ Enter > 4 
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13920 IF R$€> CHR$C19) GOTO 1400 ELSE BO 
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60 DIM DC200):DIM N<200)2DIM SIC200)2DIM B<(200):DIM SE(2D0):DIMV 1360 PRINTTABC1S); SPRINTUS ING” SUB-TOTAL CRS HH, HH, NH HH Cs TH 


H(200) 
Bo CLS 
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1380 PRINT K$s 
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120 PRINTTABCLS)2ENTRADA DE DUPLICATAS .uu= 4 * 1440 TF R$X) CHR$CLI) GOTO 1420 ELSE 950 

140 PRINTTABC45)“LISTAGEM/GERAL DUPLIC...= 2 “ 1480 ELS 

160 PRINTTABC4S)“LISTAGEM PZDATAS «cucueoa -3* 1500 PRINTTAB (LS) “LISTAGEM P/ DATA “ 
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PiditaberSo LAS TAGEM PoósSAtaDO E DATA 4“ 


POP O SACADO “514% 
INPUT Dara EINTICLAL “sDI 
INPUTODATA FINAL “DI 
(=) 

TH=0 

GI. 

K = 


PRINTTABCLOD LISTAGEM PZSACADO E DATA DE “5 DI;Z A “5 DF 
GOSUR 5740 

Y=Y+1 

TF DeCY)=7 GOTO 3440 

IF SI(Y)> 4 GOTO 2880 

IF Der)< DI Ok DcY5> DF GOTO 2880 

IF SEc(Y)=581€ GOTO 3000 

GoTo 2880 

GOSUB 5940 

K=K+1 

fF K=B8 GOTO 3040 

GOTO 2880 

PRINT K€&; 

PRINTTADOSS); SPRINTUSINO” SUB-TOTAL CRS HH, HH, MME HH “=TH 
PRINT K&%; 

PRINTCP/Cont inuar tecle < Enter » 

RE=INKEYYS 

IF R$ <> CHR$CLI) GOTO 3120 ELSE 2030 

PRINT K%; 

PRINTTAB (CSS); 2PRINTUSINOG” TOTAL GERAL CR$ HH, HHH,HHHLSHH “=T 


PRINT KB; 

PRINT “Xu Fim “x Tecle < Enter ) “ 

RE=INKEYS 

IF R$Ec<> CHRECÍI) GOTO 3220 ELSE 80 

Y=0:TH=0 

Kk=0 :CLS 

PRINTTABC45)” LISTAGEM DE TITULOS LIQUIDADOS “ 
GOSUB 5740 

Y=Y+1 

IF D(Y)=9 G0To 3550 

IF SI1(Y)=2 GOTO 3420 

GoTo 3340 

GOSUR 5940 

K=K+1t 

IF K=8 GOTO 3280 

GOTO 34340 

PRINT K£€s 

PRINTTADC145);2PRINTUSING” SUB-TOTAL CR$ HH, HHH, HHH.HH “5TU 
PRINT K%ys 

PRINTYP/Cont inuar Tecle < Enter > “4 

RE=INKEYS 

IF R$<> CHR$CS3) GOTO 3520 ELSE 3280 

PRINT K&s 

PRINTTABC20); PRINTUSING”O TOTAL GERAL CR$ HH, HH, HHHLHH “5T 


PRINT K&s 

PRINTOR* Fim “x Tecle < Enter >» “” 
RE=INKEYS 

IF R$<> CHR$C13) GOTO 3400 ELSE 80 

Y=02TH=0) 

K=0 

CLS 

PRINTTABCLS) LISTAGEM DE TITULOS VENCIDOS “ 
GOSUB 5740 

Y=Y+1 

IF D(Y)=9 GOTO 4000 

IF SI(Y)=2 GOTO 3740 

IF Dcy)< DA GOTO 3920 

GoTo 3740 

GOSUB 59740 

K=K+1 

IF K=8 GOTO 93880 

GOTO 3740 

PRINT K$; 

PRINTTAB CSS); 2PRINTUSINGO SUB-TOTAL Clo6 HH, HHA, MN LHH “TH 
PRINT K&%; 

PRINT“P/Cont inuar Tecle < Enter 5” 
RE=INKEYS 

LF R$C> CHRECST) GOTO 3940 ELSE 9460 

PRINT K£; 

PRINTTABCLS);2PRINTUSINGOTOTAL GERAL CRS HH,HHE, HAHAH “= TH 
PRINT K$€s 

PRINTOE* Fim “x fecle < Enter » ” 
RE=INKEYS 

FE R$€C> CHRECSIY GOTO 4090 ELSE 90 

Y=0:TH=0 

1.5 

PRINTTABCES)LIQUIDACAO/ZDELECÃO DE DUPLICATAS “4 
PRINTIPRINTTABCIG)CNR. DA DUPLICATA “;2INPUT Ná 
CLS 

PRINTIABC1S) AL ITQUIDACAO/ZDELECÃO DUPI.TICATAS” 
GOSURB 5740 

Y=Y+1 

IF D(<Y7)=9 GOTO 4440 

[F NCY)=Nt4 GOTO 4340 

GOTO 4240 

GOSUB 5940 

PRINT Kd: 


CENTRALDATA 


Com. e Representações Lida. 





DISKETES: 5 1/4 e 8” e fitas magnéticas 
e marca VERBATIM 
ETIQUETAS PIMACO - PIMATAB 


AV. PRESIDENTE VARGAS Nº 482 GR. 201/203 Tel.: KS (021) 253-1120 





PASTAS E FORMULÁRIOS CONTÍNUOS 





44UU PRINT CEC esta a duop a Tig/deletar € s/n 5 
4420 RE=INKEYD 

4440 TF R$=7 “2 GOTO 4420 

A460 TF R$=75º GOTO 4520 

4480 JE R$=7N” GOTO 44180 

4900 GOTO 4420 

4520 PRINTTABCLO)“DIGITE 2 2- P/ALITQUIDAR 2 3=- P/DELETAR “;=INP 
UT OP 

4540 IF OP< 2 OR OP> 3 G0TO 4520 

4560 IF O0P=2 THEN LET SICY)=22PRINTEIPRINTTAB(145)70K DUPLICATA LI 
QUIDADA < AGUARDE > “:FOR K=1 TO 20ON:NEXT K:GOTO BO 
asSBo TF O0P=3 THEN LET D(Y)50 ENCYÍ=DISICYI)=SDIBCY)=DIS6CYI)=7" 3 UHC 
Y9=0 

4620 PRINTIPRINTTAB(15)70K DUPLICATA DELETADA < AGUARDE > “:FOR 
K=1 TO 300:NEXTK=:GOTO 80 

4640 PRINT K% 

4660 PRINTTABCIS)“DUPLICATA INEXISTENTE “35FOR K=1 TO GO0:NEXT K 
“GOTO 80 

4680 Y=0) 

4700 CLS:PRINTTARBCL5)7ALTERACOESY 

4720 PRINTSPRINTTABCAS)Í"NR. DA DUPLICATA “;35INPUT Ná 
4740 CLSFPRINTTABCLS)“ALTERACÕES “ 

4760 GOSUB 5740 

4780 Y=Y+1 

4800 IF D(Y)=9 GOTO 4640 

4820 IF N<Y)=Nº GOTO 4860 

4840 GOTO 4780 

AB60 GOSUB 5940 

4970 PRINT K$ 

4880 PRINTYE” esta a duplicata a alterar € s/n ) 9“; 
4900 RE=INKEYS 

4920 IF R$=7 “ GOTO 4900 

APÃO IF R$=7S” GOTO 4990 

4960 TF R$=“Nº GOTO 4740 

as80 GOTO 4900 

4990 CLSIPRINTTAD C1S5)“ALTERACÕOESY 

5000 GOSUB 56800 

3020 PRINTA 4n64+ LA, Os 

3040 INPUT DC(Y) 

39060 PRINTO GK64+16,7 

5080 INPUT NCY) 

S0PO TF NXY))9999P GOTO 5040 

39100 PRINTO Bx64+16,0 

354120 INPUT SI(CY) 

39430 IF SI<Y)<> 4 GOTO 5100 

9140 PRINTO 1LOXG4rtáa,o 4; 

3160 INPUT B(Y) 

54720 TF B(Y))999 GOTO 5440 

3480 PRINTO 1246441 6,00“ 

5200 INPUT SE(Y) 

9210 IF LEN (985(Y)))22 GOTO 5180 

S220 PRINT 14X64+416,7 

3240 INPUT UVHCY) 

3260 GOTO 80 

3280 CLS 

53400 Y=0 

5320 Y=Y+1 

SI340 TF D(Y)=9 GOTO 570 

3360 GOTO Sago 

3380 CLS 

5400 PRINTOGRAVACÃO :” 

3420 PRINTYPREPARE O K-Z E TECLE < ENTER > “ 
5430 RE=INKEYS 

9440 IF R$) CHR$(13) GOTO 5430 

3460 Y=0 

5480 Y=7+3 

3490 TF DCY)=0 GOTO 5480 

9300 PRINTH-L, DCYI,NCY),SICY),BCY)D, SECYD, VHCY) 
9920 IF D(Y)=9 GOTO 80 

39940 GOTO 5480 

9960 CLS 

9980 PRINTOLEITURA: “ 

9600 PRINTYPREPARE O K-7Z E TECLE < ENTER 5 4 
S620 R$=INKEYS 

3640 IF REC) CHR$CÍI) GOTO 5620 

3460 Y=0 

H680 Y=Y+3 

5700 INPUTH-L, DCYI,NCYD,SICYD ,BCYI ,SDCYD , VHCT) 
3720 IF D<Y)=9 GOTO 00 

5740 GOTO 5480 

9760 PRINT K$; 


S780 PRINT” VENC.  DUPL SIT BCO SACADO 
ALOR ” 

9790 RETURN 

S800 PRINTO 4464, “VENCIMENTO. 2.02”; 

S820 PRINTA 6464, “NR.DUPLICATA. = 2”; 

3840 PRINTA Bu44, “SITUAÇÃO. 0000275 

5860 PRINTO 10444, “BANCO/COB. «0.275 

9880 PRINT 121464,“ SACADO. nun ut “a 

5900 PRINTO 14464, VALOR. ceu. os 


5920 RETURN 

9940 PRINTEDCYD EPRINTOO NCrosIPRINTOO SIT) SPRINTOO SACYIsSPRIA 
pe HEBSCTD 

S945 PRINTUSINGO MH, MEM, HH MH SUNT) 

59250 Te=TH+VHCY) 

59260 RETURN 


SUPRIMENTO É COISA SÉRIA 


e Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 


º Discos Magnéticos: 5 Mb, 16 Mb, 8 Mb, etc. 

º Fitas Magnéticas: 600, 1200 e 2400 pés 

* Fitas CARBOFITAS p/Impressoras: Globus, M 100/200 - B 300/600 - Elebra 
º Fitas p/Impressoras: Elgin, Epson, Digilab, Diablo, Elebra-Alice. 

e Cartucho Cobra 400 












SINTA NOS DEDOS ESTA CONQUISTA 
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Rua Gávea, 150- Tel: (031) 3932-8300 
30.000 - Belo Horizonte - Telex 0313352 
Rua Barata Ribeiro, 391 -s/ 404 - 
Tel:(021)257-2960- Rio de Janeiro 


prai | de 
Para pequenas e médias empresas, a DIGITUS lança o DIGIPLEX. Um módulo capaz de formar uma rede loca 
MultEusuários! que além de Tó Doro eia o dinamismo de um CPD também simplificará o gerenciamento de sua 


empresa. F | 
Com vários terminais executando programas específicos, a implantação do DIGIPLEX proporcionara a sua em 


presa um aumento da produtividade e qualidade, já que a interligação om line dos terminais permitira que se 


trabalhe com dados e informações atualizadas. e; Ex 
Ligados ao DIGIPLEX poderão estar até 16 terminais inteligentes, fazendo a contabilidade, controle o [-M=iei(oJo [BIA 
vendas e produção, malas diretas, estatísticas ou seja, atendendo a todas as necessidades de sua empresa. 


Revendedores: Aracaju (079) 2247776 223. 1310 Baumeri (011) 421.5211 Brasília (061) 2426344 2485359 273.2128 229.4534 Belém (091) 225.4000 Belo Horizonte (031) 223.6947 222.7889 9334.2822 344,5506 
225.3305 225.6239 Campinas (0192) 32.6322 Curitiba (041) 232.1750 243.1731 Divinópolis (037) 221.9800 Fortaleza (085) 227.5878 224.4235 2243923 224.4691 226.4922 Florianópolis (0482) 23.1039 Foz do 
Iguaçú (0455) 72.1418 Goiânia (052) 223 1165 João Pessoa (083) 221.6743 Julz de Fora (032) 213.2494 Londrina (0432) 23.7110 Maceió (082) 223.3979 Montes Claros (038) 221.2599 Niterói (021) 710.2780 Novo 
Hamburgo (051) 293.1024 Ouro Preto (031) 551.3013 Poços de Caldas (035) 721.5810 Porto Alegre (0512) 26.1988 334.0660 21.4189 25.0007 26.1900 Recife (081) 326.9318 221.4995 3926.9969 Ribeirão Preto 
(016) 636.0586 Rio de Janeiro (021) 252.9420 262 2661 292.0033 267 1093 252.9191 541.2345 268.7480 221.8282 288.2650 253.3395 257.4398 222.4515 2639.1241 295.8194 247.7842 322.1960 316.4966 
551.8942 Salvador (071) 242.9394 2416189 Santa Maria (055) 221.9588 São Paulo (011) 280.2322 815.0099 5393.2111 231.3922 258.4411 222:1511 853.9288 Taubaté (0122) 32.9807 Vitória (027) 223.5147 
223.5610 











Nesta parte do artigo, a respeito do gerenciador 
de banco de dados para o TRS 80, vamos descrever 
o funcionamento interno do programa 








Um gerente prático 
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tvan Camilo da Cruz 





programa que descreveremos neste segundo artigo 
da sério foi projetado para gerenciar bancos de da- 
dos relacionais, acessados sequencialmente ou atra- 
vês de uma árvore binária. Ele tem um conjunto de 
rotinas portáveis que serão descritas mesta parte. Elas podem 
ser usadas em outros programas do usuário para acessar os da- 
dos do banco. Alguns exemplos de sua utilização serão dados 
na terceira parte do artigo. 

Estas rotinas portáveis estão localizadas entre as linhas 1380 
é 4990, Porém, antes de descrevê-las, faremos uma pequena 
introdução ao funcionamento geral do programa, 

Para se entender o funcionamento é necessário conhecer 
três tabelas usadas internamente: a de descrição da ficha, a de 
descrição dos campos e a de descrição dos arquivos. Estas três 
tabelas definem completamente o banco de dados em uso, Às 
variáveis o vetores usados para a construção destas tabelas es- 
tão na figura 1. As duas primeiras são gravadas em disco logo 
após a criação do banco, a terceira é criada a partir das duas 
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TABELA GE DLSLHICÃO JA CACHA 
NE - Hijjugco da celas 
amo Ponteiro pará db priesiro campi da página 
FS —- Ponteiro para O ultina caspa dá pálio 
Hd = Humere de Nencagens 
FAI +44 Enmicio da Rensagoem 
ENM | Conteudo dá Mensagem 


FhMELA DE GESCNDEAC [ME ARINITUOS 
ti Hesoro do frquivos 
jd dd — tamanho do arquiço 
MO!) - Hydro de tados 


TABELA DE DESLNICÃO (abs. CMS 
NEM | leme du cieos 


PA do — Poósgicão de cámii 

FPI | Taco do Enbireh 

TES à Tánanko dh caapo 

RA | Hinpro Pe canas deciaada CinfBiiiis Mir das d 


FH&C à - Formato de LAPpreçsoao É CRAGOS MRE LTS) 
CCt! À Contesio do canDi 





Figura 4 
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LO His po idas afgdiivo de iAdices 
É! Edocesm di quado iddgmidoia dloo apito 
E Lt Litma, 
EP Elo coa o galho vscuéria dá ArVurE 
EP4 ETR 
Eã - bão dos mind Phi 
ES Eden, 
Ed Ediroemim dá misgpusd dae mei haadguim los timilias 
Eq Edim 
MH o — Hianção do câãaDe cbádo cre chave dh ácichh 
Elo Edno cháva do advoro hifaria 
Ll Minipa dart mtgh str atom do ia otra de mol him 
FAL! Candice ilig na mto da AEXGQRU 
Figura 2 


primeiras, sempre que um novo banco é aberto ou criado, As 
outras variáveis importantes do programa podem ser visializa- 
das nas figuras 2 a 6. 

A tabela de descrição dos campos é composta por seis vetos 
tes: NCS, PC, TC, TP, DC e FMS. Sendo que o vetor FMS$ é 
construido a partir de TC e DC no momento da abertura do 
banco. Cada campo ocupa uma entrada na tabela a partir da 
posição | dos vetores. À posição O é reservada para 0 campo 
APAGADO? (veja primeira parte do artigo), Além destes, 
existe o vetor CCS que é usado para guardar os dados da ficha. 

A tabela de descrição da ficha é formada por três vetores é 
duas matrizes. Os vetores são Pl, P2 e NM. Existe uma entra- 
da nestes vetores para cada tela da ficha, O número de telas 
está armazenado na variável NP. O vetor Pl contém, para 
cada uma, um apontador para O primeiro campo da tela, Si- 
milarmente, o vetor P2 guarda índices para o último campo da 
tela. O NM contém o número de mensagens. As matrizes da 
tabela são PM e CMS. Elas são bidimensionais e para cada tela 
guarda as posições e conteúdos das mensagens, respectivamen- 
Le, 

A tabela de descrição dos arquivos é formada por dois ve- 
tores: NC e TA. O primeiro guarda, para cada arquivo, o nú- 
mero de campos c o segundo o tamanho, em caracteres, de 
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Caracteristicas da Impressora 
CO - Humero de colunas 
LI - Humero de linhas 
514 — Sequencia inicial de impressao 
Sº4 - Sequencia final de impressao 
Caracteristicas do Kelatorio 
Cabecalho 
N4 - Humero de linhas de cabecalho 
[4() - Tabuiacoes da linhas de cabecalho 
L49() — Conteudo das tinhas de cabecalho 
Ni —- Numero da linha do contador de saginas 
Ci - Numero da coluna do contador de vaginas 
Detalhe 
HS - Numero de colunas de detalhe 
156) — Tabuiacoos das colunas de detalhe 
CX) - Campo à ser Impresso 
N3 - Numero de linhas de seoaracao 
H7 - Numero de ficias à Imprimir por pagina 
HS - Resto de linhas 
H9 - Humero de linhas a imorimir por fichá 
Rodape” 
Ná - Numero de linhas de vodave' 
Tó() - Tabulacoes das linhas de rodave” 
L6%t ) — Conteudo das linhas de rodave* 
He - Humero da linha do contador dé paginas 
Co - Numero da coluna do contador de paginas 





Figura 3 


Che) — Numero do camoo 

CT$() - Constante string para a comparacao 
RL() - Codigo do operador relacional 

LG) — Codigo do operador logico 

OP$  - Operador sendo avaliado 





Figura 4 


Indica que nao houve moditicacoes na tela 
atual (usada pela rotina LEIT. DO TECLADO-)) 

- Indica que hove modificacoes. 
Iidica que ainda nao foi encontrado o fim de 
arquivo (usada pela rotina IMPRIMIR) 
Indica que o fim de arquivo foi encontrado. 

- Nao existe exoressao logica para ser avaliada 
Existe Uma expressao logica. 
Expressao logica e* falsa 
Exuressao logica e” verdadeiras. 
Espressao relacional e” falsa 
Exnressão relacional e” verdadeira. 
Nao imprimir valores anteriores do formato de 
supressão (usada vela rotina DESCRICAO DA 1M- 
PRESSAO). 
Imprimir valores anteriores, 
Existe um banco de dados aberto. 
Nao existe um banco de dados aberto. 
Nao existe um arquivo de indices em uso. 
Existe um arquivo de indices em uso. 
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emana aaan no VARIAVEIS AUXILIARES===——==—==—. neon 


EC$ - Nome do banco de dados em uso. 

TPSC) - Tabela de definidores de tipo 

TIC) — Tamanho do caúvo para tipos numericos 
ZR$C) - Valores nulos para cada tino 

vurnys - Auxilia a criacao dos FIELDOs 


Hr —- Numero da ficha atual 

-b - Endereco do cursor na memoria de video 
PR - Codigo do caractere “sob” o cursor. 

CR - Codigo ASCI! do cursor 

578 - Usada na leitura dos campos do teclado 
ELO - Elo ou flag da ficla atual 





Figura 6 


cada registro do arquivo, Para entender melhor esta tabela são 
necessárias pequenas explicações. 

Devido à baixa capacidade dos registros dos arquivos em sis- 
temas operacionais para o TRS 80 (256 bytes), foi preciso im- 
plementar um modo de se armazenar uma ficha em mais de um 
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registro, O método que se mostrou mais eficiente foi o de ar- 
quivos paralelos, em que uma parte da ficha fica em um arqui- 
vo e o restante em outros, porém na mesma posição relativa. 
Dessa forma, se uma ficha for muito grande (mais de 256 by- 
tes) ela será subdividida em até 10 arquivos, o que permite ao 
programa armazenar, teoricamente, fichas com até 2.560 by- 
tes. 

Deve ser levado em conta, no cálculo do tamanho da ficha, 
que o campo “APAGADO?” ocupa dois bytes e se localiza antes 
de qualquer outro. Tomando como exemplo a ficha usada na 
primeira parte teríamos a seguinte divisão: 


lo. ARQUIVO 


INDICE NA NOME TAMANHO 
TABELA DE DEF. HO Lu 
DOS CAMPOS CAMPO CAMPO 

Q “APAGÂDIO? * e 

l NOME 30 

[a PAI 30 

3 MAE 50 

4 “DATA DO NASCIMENTO 8 

J “EST. CIVIL 1 

á CONJUGE 30 

7 LDENTIDADE lê 

é) “ORGÃO EXPEDTOOR * le 

9? “CC. PROFIS.' le 

10 “SERIE le 

11 “CERT. DE RESERVISTA” 15 

JE “TIT. ELEITORAL 8 

13 SESSAO J 

14 ZONA ê 

13 CIC le 
TOTAL cce 


Se o próximo campo (ENDEREÇO) fosse incluído, o arqui- 
vo ficaria com 262 bytes por registro. Por isso ele só será in- 
cluído no segundo arquivo: 


co. ARQUIVO 


NUMERO NOME. TAMANHO 
lá ENDERECO 40 
17 “CIDADE 20 
18 ESTADO E 
19 “DATA DE ADMISSÃO: 9 
20 CARGO 20 
el SALARIO 9 
TOTAL 28 


Observe que, apesar de o tamanho do campo SALARIO ser 
de 14 caracteres, ele só ocupará oito bytes no arquivo. Qualquer 
campo de dupla precisão ocupa apenas oito bytes, os de pre- 
cisão simples quatro e os inteiros dois bytes. 


AS ROTINAS DE ACESSO 


É importante lembrar que os dados dos bancos podem ser 
acessados através de uma árvore binária. Para aqueles que es- 
tão se iniciando, vamos explicar o que é uma árvore binária. 

De forma genérica, uma árvore é uma estrutura de dados 
que possui nós e ligações entre esses nós, que estão dispostos 
em níveis. Uma ligação sempre parte de um nível menor para 
um maior. Um exemplo de árvore pode ser visto na figura 7. 
No nível zero pode ser colocado apenas um nó e que é chama- 
do nó raiz da árvore. 

Uma árvore binária é uma forma especial de árvore, na qual 
podem ser feitas no máximo duas ligações a-partir de um nó ,, 
qualquer. Na figura 8 está um exemplo. 


39 


UM GERENTE PRÁTICO EM BANCO DE DADOS 


Todos os nós dqs quais não parte nenhuma ligação são cha- 
mados nós folha. Aqueles que não são raiz, mas dos quais par- 
tem ligações para outros nós serão chamados de sub-raiz. A ár- 
vore que se origina de uma ligação à esquerda de um nó será 
chamada de sub-árvore à esquerda, e as árvores que se originam 
à direita serão chamadas de sub-árvores à direita. 

Cada nó deve conter armazenada uma chave de acesso (ob- 
serve que isso não está representado na figura 7). Todas as cha- 
ves armazenadas em uma sub-árvore à esquerda devem ter um 
valor menor do que a chave do nó que a originou, Da mesma 
forma, todas as chaves contidas em uma sub-árvore à direita 
devem possuir valores maiores do que a chave do nó que a ori- 
ginou. 

Vamos a um exemplo para explicar melhor o sentido desta 
definição. Suponhamos que os nomes abaixo devam ser intro- 
duzidos em uma árvore binária: JOAO, EDSON, LUIZ, FA- 
TIMA, ANTONIO, PEDRO, EVERTON, 

A criação de uma árvore binária com tais dados seguirá esta 
sequência: 

FASSO 1 
OA) 


PASSU E 
OA 


tOSON 


PASSO 3 


JU 


ESOM LUIZ 


PASSO 4 
Rn] 
ESOM LUIZ 


FhTIRA 


PASSU 5 


tLSON cult 


ANTONIO FATIRA 


RUI RI LUZ 


ponto FáTitio PDA 


AMON Entina 


VE ros 


Para entender as rotinas de acesso à árvore são necessárias 
quatro definições: 


| — PRIMEIRO ELEMENTO da árvore ou sub-árvore, 

2 — ULTIMO ELEMENTO da árvore ou sub-árvore, 

3 — ELEMENTO SEGUINTE a um elemento, 

4 — ELEMENTO ANTERIOR a um elemento, 

Vamos a definições mais específicas: 
e PRIMEIRO ELEMENTO: dado o nó raiz da árvore ou sub- 
árvore, se ele não tiver uma sub-árvore à esquerda, então é o 
primeiro, Caso contrário, o primeiro elemento será o primeiro 
elemento da sub-árvore à esquerda, 
e ULTIMO ELEMENTO: dado o nó raiz da árvore ou sub-ár- 
vore, se ele não tiver uma sub-árvore à direita, então ele é o 
último, Em caso contrário o último elemento será o último 
elemento da sub-árvore à direita, 
e ELEMENTO SEGUINTE: dado um elemento da árvore, se 
ele tem sub-árvore à direita, então o elemento seguinte será o 
primeiro elemento da sub-árvore à direita, Ao contrário, o ele- 
mento seguinte será o primeiro nó pai cuja sub-árvore à es- 
querda seja a mesma do elemento dado. 
e ELEMENTO ANTERIOR: dado um elemento da árvore, se 
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UNA ÁRVORE GENÉRICA 


Uível O 


Figura 7 


UMA ÁRVORE BINÁRIA 





Figura 8 


ele tem sub-árvore à esquerda, então o elemento anterior será o 
último elemento da sub-árvore à esquerda, Em caso contrário 
o elemento anterior será o primeiro nó pai cuja sub-árvore à 
direita seja a mesma do elemento dado. 

É bom também esclarecer que cada nó (elemento) da árvo- 
re possui cinco campos; 

e inteiro com o elo com a sub-árvore à esquerda (E1$); 
e inteiro com o elo com a sub-árvore à direita (E2$); 

e inteiro com o elo com o nó pai (E3$); 

e inteiro com o elo para a ficha (E4$); 

e campo que contém a chave de acesso da árvore (CH$). 

Estes campos estão declarados em um comando FIELD na 
linha 4830, na rotina de abertura do arquivo índice. A função 
de cada um pode ser melhor visualizada na figura 9. A figura 
IO traz os valores que estes campos assumiriam no caso do 
exemplo dado anteriormente. 

Algo mais deve ser dito sobre o registro número 1 do arqui- 
vo de índices (figura 10). Ele funciona como um descritor da 
árvore. O campo El$ deste registro contém um apontador 
para o nó raiz da árvore que na figura é o registro número 2, 
O campo E4$, por sua vez, possui o número do campo na ta- 
bela de definição dos campos, que é usado como chave da ár- 
vore binária. Neste caso o número do campo é 1, que é o índi- 
ce do campo “NOME' do nosso exemplo, 

Para criar e acessar a árvore usando estes campos há seis ro- 
tinas: 

e PRIMEIRA (linhas 1420-1550). 
e ULTIMA (linhas 1560-1690). 


e PRÓXIMA (linhas 1700-1820). 


e ANTERIOR (linhas 1830-1950). 
e INCLUI (linhas 1960-2190). 
e PESQUISA (linhas 2200-2400). 

A PRIMEIRA busca a primeira ficha no banco de dados. 
Caso o banco não seja indexado, a ficha número 1 será lida e a 
rotina retorna. Em caso contrário haverá busca dentro da ár- 
vore binária para encontrar a ficha que tenha a chave de me- 
nor valor. Ela se dará da forma como foi descrita anterior- 
mente na definição de PRIMEIRO ELEMENTO, ou seja: 
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Figura 9 


linha 1510: 


1520: 
1530: 


1540: 
1550: 











FUNÇÃO DOS ELOS 


Et everton | 


* Aponta para o Banco de Dados 


salva o conteúdo da variável II e faz II apontar 
para a raiz da árvore, 

lê registro número II no arquivo de índices. 

se houver uma sub-árvore à esquerda, faz a mes- 
ma busca, 

se não, verifica se o nodo está inativo e caso afir- 
mativo busca o PROXIMO ELEMENTO, 

lê a ficha no disco e retorna sem erro. 


O conteúdo da variável II é salvo para que seja recuperado 
em caso de erro na procura. 

A ULTIMA funciona de modo similar, ou seja, se o banco 
não estiver indexado, a ficha retornada será FIM-1 (FIM é uma 


sistéliãe 


NÚMEROS 
ATRASADOS? 
PEÇA 

HOJE MESMO 


e Você pode fazer o seu pedido por carta. 
e Junte a este um cheque cruzado, 
nominal à ATI Editora Ltda., no valor 
correspondente ao seu pedido. 

e E não esqueça de enviar o seu endereço. 


Av. Presidente Wilson, 165/ 
grupo 1210, Centro, Rio de 
Janeiro — RJ — CEP 20030 
Tel.: (021) 262-5259 


R. Oliveira Dias, 153, Jardim 
Paulista, São Paulo, SP 

CEP 01433 — Tels.: (011) 
853-7758, 881-5668, 853-3800 














VALORES DOS ELOS 


* DO 
REGISTR 





Figura 10 


variável que aponta para o último registro +1 do banco) e caso 
contrário, será a ficha cuja chave tiver maior valor. A pesquisa 
na árvore difere da rotina anterior em dois pontos: 


linha 1670: verifica se há sub-árvore à direita. 
1680: se o nodo estiver inativo busca o ELEMENTO 
ANTERIOR. 


A rotina PRÓXIMA lê a ficha seguinte da atual. Se o banco de 
dados não estiver indexado, bastará incrementar a variável NF 
e saltar para a rotina de leitura do banco. Em caso contrário o 
número do nodo atual, o índice da árvore à direita e o índice 
do nodo pai devem ser fornecidos à sub-rotina nas variáveis 
E2 e E3, respectivamente. 

A busca na árvore é feita conforme a definição de ELE- 
MENTO SEGUINTE dada acima: 
linha 1780: salva a variável II pelo motivo já exposto. (E) 


| | Seu micro não 
E==Spode parar 


CHAME MS: ASSISTÊNCIA VITAL EM MICROS 


IBM PC, RADIO SHACK, APPLE COMPUTER, 
EPSON E TODAS AS MARCAS NACIONAIS. 


A MS trabalha desde 1971 em assistência especializada em 
microcomputação que se estende desde check-ups preventi- 
vos até a substituição de peças, de unidades periféricas ou do 


próprio micro durante o tempo em que ele estiver em preparo. 


Tenha ao seu lado a melhor assistência técnica em micro- 
computadores do país. 


FAÇA COMO AS GRANDES EMPRESAS: 
Varig, Petrobrás, Pão de Açúcar, Aços Villares, Philco, etc. 


Contrato de manutenção com a MS é garantia de bom funcio- 
namento de seu equipamento. 


Solicite nosso representante ou faça-nos uma visita. 


Assistência Técnica a Microcomputadores. 
Rua Dr. Astolfo Araújo, 521 fone: 549-9022 
Cep.: 04012- Pq. Ibirapuera - São Paulo. 


UM GERENTE PRÁTICO EM BANCO DE DADOS 


linha 1790: verifica a existência de uma sub-árvore à direita e, 
caso verdadeiro, inicia a busca do primeiro ele- 
mento desta sub-árvore. 

1800: inicia a busca do primeiro nodo pai cuja sub-árvo- 
re à esquerda contenha o elemento dado. Se 
II = 1, então a busca termina com erro. 

1810: lê o nodo pai. 

1820: verifica se ele satisfaz as condições da definição. 
Caso afirmativo retorna sem erro, caso falso, bus- 
ca o pai anterior. 

A sub-rotina ANTERIOR funciona de forma semelhante. 

Além das quatro rotinas explicadas, existe outra, de pesqui- 
sa em árvore binária para encontrar a ficha a partir de um 
campo-chave qualquer. Esta rotina, chamada PESQUISA (li- 
nhas 2200 a 2370) recebe como parâmetro a variável ST$ que 
deve conter a string a ser pesquisada. Ao retornar, caso a pes- 
quisa seja bem sucedida, uma nova ficha foi lida e colocada no 
vetor CC$ e a variável ER retorna com valor O. Caso contrário, 
a variável ER retorna com valor 1 indicando erro. 

A rotina INCLUI (linhas 1960 a 2190) recebe como pará- 
metros o vetor CC$ e a variável NF. O vetor contém os dados 
da ficha que serão incluídos no banco e NF o número do regis- 
tro no banco onde a ficha será armazenada. 

Ela grava a ficha no banco de dados (linha 2030) através de 
uma chamada à sub-rotina da linha 2590. Em seguida, caso es- 
teja sendo usado um arquivo índice, um nó será procurado pa- 
ra que nele possa ser dependurado o novo registro, 


ROTINAS DE ANÁLISE 


Entre as linhas 2660 e 3980 estão as rotinas que fazem aná- 
lise léxica, sintática e avaliação de expressões lógicas e rela- 
cionais. A finalidade deste grupo de rotinas é pré-processar 
a expressão lógica de modo a permitir uma avaliação rápida da 
expressão por parte da rotina AVALIA (linhas 2660 a 2990). 
Para isso são criados quatro vetores: CM, CT$, RL e LG. Para 
cada expressão relacional, uma entrada na tabela também é 
criada. A sintaxe de uma expressão relacional, como vista na 
primeira parte, é a seguinte: 


<CAMPO> ["(” <4 TELA > “9” ] 
<CONSTANTE> 


O vetor CM contém o número — dentro da tabela de defi- 
nição dos campos — do campo da expressão. O vetor CT$ 
possui a constante e RL, o código do operador relacional (de 
la 6). O vetor LG guarda o código ASCII do operador lógi- 
co(”.” ou “+? usado como ligação entre esta expressão rela- 
cional e a seguinte. Se não houver uma expressão relacional 
seguinte, este vetor conterá o código ACSII da letra F. 

A rotina EXPRESSÃO (linhas 2970-3260) faz a análise sin- 
tática de uma expressão lógica completa. Ela chama a rotina 
CAMPO que faz a análise do trecho <CAMPO> [“("<g TELA > 
“9” , e devolve na variável J o número do campo dentro da 
tabela de definição dos campos. 

TOKEN e CARACTERE fazem a análise léxica. A cada vez 
que é chamada, TOKEN devolve o próximo símbolo na cadeia 
de entrada. A rotina CARACTERE por sua vez, devolve o pró- 
ximo caráter na cadeia de entrada. 


< OP. RELACIONAL > 


OUTRAS ROTINAS IMPORTANTES 


Além destas, existe um outro grupo de rotinas que merece 
ser citado. Está localizado entre as linhas 3990 e 4990. A pri- 
meira delas lê a descrição de um banco de dados já existente 
no disco. E bom ficar claro que por descrição de um banco 
entende-se as três tabelas vistas no início deste artigo. 

Em seguida vem uma rotina que faz o oposto, ou seja, es- 
creve esta mesma descrição no disco. Observe, entretanto, que 
a descrição que é lida e escrita no disco não é completa, pois 
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a tabela de descrição dos arquivos não é gravada. Para as duas 
rotinas é necessário, antes de chamá-las, abrir os arquivos onde 
serão gravadas ou de onde serão lidas as descrições. 


Logo após a chamada a uma leitura de descrições deve-se . 


buscar a rotina CRIA A DESCRIÇÃO DE ARQUIVOS, para 
que a tabela de descrições dos arquivos, que não é gravada 
em disco, possa ser criada. 

Após ler a descrição da ficha e criar a descrição dos arqui- 
vos, é necessário abrir os arquivos de dados para que o banco 
possa ser acessado. Isso é feito pela rotina ABRE OS ARQUI- 
VOS DE DADOS (linhas 4500-4690). Esta, além de abrir os 
arquivos, devolve as variáveis FIM e LV, FIM contém o núme- 
ro do próximo registro disponível no fim do arquivo. LV é a 
cabeça (índice do primeiro item) de uma pilha de fichas mar- 
cadas como apagadas (veja a primeira parte do artigo). 

Para usar um arquivo de índices chame a rotina indicada. 
Antes abra os arquivos de dados e coloque na variável ID$ o 
nome do arquivo a ser aberto. A rotina FECHA fecha os ar- 
quivos de índices e de dados. A rotina FECHA O ARQUIVO 
DE INDICES, apenas o primeiro. 


MISCELÂNEA DE ROTINAS 


Além dessas rotinas portáveis há outras que podem ser úteis 
a alguém. A primeira delas é a que desenha as letras MSGBD 
(Mini Sistema de Gerência de Banco de Dados) na abertura 
do programa (linhas 60-80). Nela, cada letra é composta por 
retângulos de largura constante e altura e posição na tela va- 
riáveis. A rotina usa os dados numéricos que estão nas linhas 90 
a 120, cada linha para uma letra. Cada retângulo é descrito 
por três números: o primeiro é a coordenada X onde a lateral 
esquerda do retângulo está posicionada; o segundo é a posição 
no topo do retângulo e o terceiro a posição da base. 

A segunda rotina é a de som. Ela é escrita em Assembler 
e chamada pelo banco de dados na pequena rotina que vai da 


linha 10630 a 10730. Os bytes que a formam estão na linha 
250 e armazenados na variável SOMS. 

Há duas rotinas de leitura do teclado. A primeira denomi- 
nada LEITURA DE TECLADO-1, é usada para ler os dados 
da ficha que estiver sendo criada ou modificada. Os caracteres de 
controle que ela aceita estão armazenados na variável CI$ 
(ver linha 210). Assim, se o usuário deseja retirar alguns dos 
controles da rotina bastará substituir o caráter correspon- 
dente na variável CI$ por outro que não exista no teclado, 
como por exemplo CHR$(0). A segunda rotina, denominada 
LEITURA DE TECLADO-2, funciona de modo semelhante 
a um comando LINE INPUT, com duas diferenças: o número 
de caracteres a ser lido pode ser delimitado pelo valor da va- 
riável TM, e os únicos caracteres de controle permitidos são 
o (ENTER), (setinha à esquerda) e (SHIFT) + (setinha à es- 
querda). 

A rotina DISPLAY MOLDURA imprime nas três últimas 
linhas do vídeo uma grade e os nomes do banco de dados e do 
arquivo de índices em uso. A DISPLAY FORMATO formata 
o vídeo, colocando os nomes dos campos e as mensagens nos 
locais pré-determinados. A DISPLAY DADOS imprime 
os dados referentes a cada campo no vídeo, em suas posições 
pré-determinadas. 

As outras duas rotinas do programa são aplicativas e não 
serão descritas agora. Na próxima parte, o uso das rotinas 
aqui descritas será visto na prática. 


Fm 
(se 


Ivan Camilo da Cruz domina várias linguagens de programação, entre 


elas BASIC, Pascal, FORTRAN, COBOL. PL/1 e Assembler. Tem expe- 
riência em computadores grandes, minis e micros. Atualmente participa 
da implantação do CPD da Controles Gráficos Daru, desenvolvendo pro- 
gramas em linguagem C. 
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Porque tem um sistema de 
cabeçote próprio para 
o uso em micros. O gravador 
National RQ-2222 tem um 
contador de fita que facilita 
a localização do programa a 
ser utilizado. E tem também 
um comando único para 
gravação tipo “Um Toque”, 
muito mais prático. Um 
gravador que vive na memó- 
ria do computador merece 
também viver na sua. 

Grave este nome: National 
RQ-2222. 


=. ARA 
NE 


A segunda 
memória do seu 
computador: 
gravador National 


RQ-2222. 


O gravador 
National RQ-2222 
é o preferido 
pelos usuários de micro- 
computadores. Ele grava e 
carrega programas com 
a mais alta fidelidade e com 
a maior economia, 


Produzido na Zona Franca de Manaus, Conheça o Amazonas. 








no 


e 














programa aqui apresentado, 

para Registro de Comunica- 

dos de Radioamador, é dedi- 

cado especialmente aos cole- 
gas que estão se iniciando na micro- 
computação, sendo, portanto, proposi- 
talmente simples e didático. Sua maior 
finalidade é, além de mostrar mais uma 
utilização do micro, a de chamar a aten- 
ção para certas técnicas de programa- 
ção de grande utilidade para os nova- 
tos. 

O programa armazena os dados de 
um QSO em apenas quatro campos. O 
leitor interessado poderá modificá-lo à 
vontade por meio da inserção de novos 
campos (QTR, ORG, RST, etc.), evi- 
dentemente com prejuízo do número 
total de registros a serem armazenados. 
Na configuração mostrada, a capacida- 
de é de 360 registros, para equipamen- 
tos com 16 Kb, ou de 1200, para 48 Kb, 
e a variável responsável por este núme- 
ro, N, pode ser ajustada na linha 20, Os 
quatro campos são: 
| — INDICATIVO, com o máximo de 6 
dígitos; 

2 — NOME, com o máximo de 10 letras; 
3 — CIDADE, com o máximo de 12 le- 
tras; 

4 — DATA, no formato DDMMAA, 

As variáveis das linhas 40 a 70, que 
serão utilizadas para o dimensionamen- 
to das matrizes das linhas 80 a 110, de- 
terminam o comprimento da informa- 
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rodada MS 


Finalmente, a oportunidade que os possuidores 
da linha Sinclair esperavam, com este novo... 


Arquivo de 





comunicados 


ção a ser arquivada em cada campo. No- 
tar que CP, comprimento do prefixo, 
ou melhor, do indicativo, por força da 
lógica utilizada na pesquisa do arquivo, 
assume o valor 7, ao invés de 6, Tais va- 
lores podem ser alterados para mais, 
repito, à custa de uma diminuição na 
capacidade de arquivamento. As variá- 
veis CN, CE e CD são os comprimentos, 
respectivamente, do nome, do QTH e da 
data. 

O programa deve ser digitado com os 
cuidados habituais, e testado em segui- 
da com dados fictícios. Ao se digitar 
RUN e NEWLINE aparecerá o seguinte 
MENU: 


| — PROCURA INDICATIVO 
2 — REGISTRA QSO 

3 — ALTERA REGISTRO 

4 — LISTA REGISTROS 

5 — GRAVA COM DADOS 


Nesta altura, a única opção possível 
é a 2 — REGISTRA QSO. Digitando-se 
“2”. surgirão no vídeo o número do 
primeiro registro vago e o convite para 
digitar o indicativo, seguidos dos convi- 
tes para digitar o nome, a cidade e a da- 
ta. Finda a entrada de um registro, digi- 
te “S” se desejar outro registro, ou “N” 
para retornar ao menu. Digite mais al- 
guns registros, retorne ao menu, esco- 
lha agora a opção 1 — PROCURA IN- 
DICATIVO, entrando, quando solicita- 


Luiz Carlos Nardy 


do, com o indicativo a ser procurado. 
Na parte superior do vídeo serão mos- 
trados os dados do QSO, se encontrado, 
e na parte inferior aparecerá novamente 
o menu. Caso o indicativo solicitado não 
faça parte do arquivo surgirá a mensa- 
gem “INDICATIVO NAO REGISTRA- 
DO”, seguida do menu, 

Todos os registros podem ser altera- 
dos, inclusive o indicativo. Para tal, o 
mais prático é primeiro chamar o regis- 
tro com “1”, anotar o seu número e, 
então, digitar 3”. Será perguntado o 
número do registro a ser alterado e, em 
resposta às perguntas que serão feitas, 
digite os novos dados. 

O comando “*4” efetua a listagem dos 
registros existentes. Digitar o primeiro e 
o último endereços do bloco a ser lis- 
tado, obedecendo à orientação do pro- 
grama, 

Estando tudo correto, podemos fa- 
zer uma cópia do programa em fita cas- 
sete. Embora exista a opção “5”” para 
essa finalidade, estamos interessados, 
neste ponto, em uma cópia apenas do 
programa, que será a nossa “matriz” 
para utilizações futuras. Para tanto, di- 
gite BREAK em um momento em que 
o menu esteja na tela, em seguida GOTO 
3000, ligue o gravador e aperte NEW- 
LINE. Com isto são apagados todos os 
registros e é desfeita a reserva de memó- 
ria, ficando o programa muito mais cur- 
to para ser copiado e em condições de 
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De PY1DWM 


A ui estamos em nova edição, com mais um trabalho do 
Y2AQO-Luiz, comandante-em-chefe da Rodada do Micro. 
Segundo suas próprias palavras, trata-se de um programa essencial- 
mente instrutivo, orientado para o iniciante e que, a par das limita- 
ções de memória do equipamento a que se destina, pode ser expan- 
dido à vontade, crescendo junto com o usuário, até se transformar 
em um “LOG” tão eficiente quanto se deseje. 

CQ! CQ! RODADA MS apela a todos os radiomicroamadores 
para que saiam ''de trás do toco” e enviem as suas colaborações! 
Como já tive oportunidade de dizer, nosso sucesso — ou insucesso... 
— depende do material que recebermos É raio À js so Estou pen- 
sando em inaugurar um tópico chamado “Correspondência NÃO- 


recebida”, no qual passarei a citar todas as promessas de colaboração 


que não passarem de promessas... Por falar nisso, alguém viu por 
aí o PY2AC-—Alfredo...? 

Congratulações efusivas da RODADA MS a PY2EMI- Strauss e a 
PY2AIM —Sinésio, focalizados na reportagem “A Safra Jovem” (VE- 
JA nº 849, 12DEZ84), pelo desenvolvimento de suas eficientes in- 
terfaces de decodificação de CW/RTTY. Um pouquinho de paciên- 
cia, por favor, e publicaremos a apreciação da interface de CW, já em 
nosso poder, juntamente com os depoimentos de vários felizes usuá- 
rios. 

Correspondência recebida: de PY3IT--Pivatto, PY2AQO-Luiz, 
PYSCIG-Alcione, GMPR e CWRJ... Registrado, com pesar, o fale- 
cimento de PY2EUZ -Domingos, grande entusiasta do micro e do 
radioamadorismo, pouco depois de ter iniciado entendimentos com 
a RODADA MS para a divulgação de seus vastos conhecimentos. 

Uma dica sensacional: se você dispõe de equipamento de VHF 
ou de UHF, saiba que é perfeitamente possível transmitir e receber 


rogramas e/ou arquivos via éter, em comunicados ponto-a-ponto 
por favor, nunca use uma repetidora para esta finalidade) e, o que é 
melhor, sem precisar gastar Q$J com um modem. Como? Simples: 
basta conectar a saída da porta de cassete do seu micro à entrada de 
microfone do rádio e a saída de áudio do rádio à entrada da porta 
de cassete do micro, utilizando conectores apropriados aos seus 
equipamentos. Após algumas tentativas, e utilizando os mesmos 
comandos do gravador, você conseguirá ajustar os níveis de sinal, 
exatamente como faz com o gravador, e terá vencido todas as difi- 
culdades. Apesar de ficar restrito a comunicados relativamente de 
curta distância (que tal dar um trato no seu sistema irradiante?) e 
apenas com possuidores de micros do mesmo tipo que o seu, tenho 
a certeza de que você terá muitas horas de diversão com esta nova 
atividade, principalmente considerando que o custo é zero, pois 
você já tem tudo o que é necessário para ingressar na telemática. 
Escrevam, contando os resultados de suas experiências. 

Bem, por esta vez é só. Espero poder dizer, em nossa próxima 
edição, que recebi um verdadeiro pile-up de colaborações e que o 
carteiro da Redação foi para o hospital com estafa, HI! Até lá, 
bons QSOs e divirtam-se. HPE CUAGN 73 ES GL FM PY1DWM 


A RODADA MS é coordenada por PYIDWM — Roberto Quito de 
Sant'Anna. Qualquer correspondência e/ou colaboração deve ser 
enviada aos seus cuidados, para a Av. Presidente Wilson, 165, grupo 
1210, CEP 20030, Rio de Janeiro, RJ. Contatos diretos via Rodada 
do Micro (7097 KHz, das 16:00 às 18:00h). Patrulha da Madruga- 
da (7055 KHz, das 22:00 às 23:00h) ou pelo telefone (0243) 
54-3355, ramal 594. 


entrar rodando automaticamente sem- 
pre que for carregado. 

A opção “5” do menu somente será 
usada para a gravação do programa com 
todos os registros ativos, ou seja, o Re- 
gistro de QSOs operacional, a ser con- 
sultado e atualizado sempre que neces- 
sário. A gravação com os registros deve 
ser feita, se possível, em HIGH SPEED, 
mas, neste caso o programa não entra- 
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rá rodando automaticamente quando 
carregado — rode-o, então, com o co- 
mando GOTO 120, nunca com RUN ou 
GOTO 1 !! Da mesma forma, caso seja 
digitado BREAK durante a execução, 
recomece-o com GOTO 120. 

Continuo à disposição dos amigos 
diariamente, a partir das 16.00h, na 
Rodada do Micro, em 7097 KHz. Terei 
enorme prazer em encontrá-los por lá, 


Registro de QSO 


SLOUW 

ES Rs 
NOME ' NELE) 
CIDADE! ES(P) 
'DETA" ,DE(P) 
REGISTRO N.".P 
GOTO 130 
SL 
PRINT 


1 
1. 


1 
4 


o 
nm 
+ 
4 
ea 


“INDICATIVO NAO REGIS 
SOTO 130 


G1 21 


nmtnr:mn 


STRO N.“4R 
TE INDICATIVO”, 


Hta 


- 
, 
— 

: :) 

Eu) 


nt 


=| gg Ut A a IA 
[e] “a 


e 


TE NOME”, 


Dong: 


Ed do 
— 
m 


CIDADE”, 


SOSODONDDOSOGE 
es fed ms Am e tA 


Ima 
=m0m 


1 
m 


DATA", 


=) =3- 


tom? tda” fp met Seet fa j s cmm 


J 
Mine 
Soto] 

Or 


E TERA 
ETA O a DO TG 


ae 


I | GOTO S30 
0 P 54: "OUTRO REGISTAR 
Db”? 45 OU NJ)” 


7ã0 IF R$=ºN' THEN LET UR=E 

OD IF R$="Nº THEN GOTO 130 

510 IF R$<>"Nº AND R$<>"5" THEN 
GOTO 780 


a 
1 





para conversarmos sobre este programa, 
ou sobre qualquer outro assunto. 73's 
e tudo de bom. 





Luiz Carlos Nardy — PY2A00 é funcionário 

público aposentado e radioamador há 37 anos. 

Autodidata em programação, possui um Dis- 

mac D8001 e um CP-200, sendo este o seu 

preferido. Colaborador da Rodada MS desde 

pra criação, é o comandante da Rodada do 
icro. 
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— Quais computadores, comerciali- 
zados no Brasil, podem operar com um 
modem? Com um modem ligado a um 
Apple, por exemplo, eu poderia comu- 
nicar-me (acessar arquivos e programas) 
através da linha telefônica com um CP- 
500? Como? 

Existe algum computador no merca: 
do brasileiro que seja compatível com 
qualquer computador (Apple, CP-500, 
[-7000 ...), sendo que cada linguagem 
e compatibilidade seja selecionada pela 
mudança do disquete de um dos drives? 
Quais computadores? (Adriano Roberto 
Lunsqui, SP) 


.— r> 


Ef 2 RAE SEAL: EMAS | 


A rigor, qualquer computador pode 
funcionar com um modem, para tal bas- 
ta que o equipamento possua uma inter- 
face RS 232 para a comunicação serial. 
Na prática, entretanto, a única restrição 
existente é a disponibilidade comercial 
para tais equipamentos. 

Mesmo que seja possível ligar um 
Apple a um CP-500, não há muito sen- 
tido em fazer tal ligação, pois os progra- 
mas de um não funcionariam no outro, 
já que o BASIC de ambos são diferentes. 

Não existe nenhum equipamento 
compatível com todos os equipamentos, 
e isto é praticamente impossível, pois 
cada um dos equipamentos menciona- 
dos possui uma filosofia de construção 
interna bem diferente dos demais. 


— PERGUNTA 





— Notei que os programas que utili- 
zam código de máquina possuem vários 


tipos de chamadas, como por exemplo: 
RAND USR xxxxx; RUN USR xxxxx; 


PRINT USR xxxxxe LET S = USR xxx 
xx. Elas querem dizer a mesma coisa? 
Quando devo usar uma ou outra? 
Muitos programas têm a seguinte li- 
nha: IF PEEK 16388+256*PEEK 16389 
= xxx THEN... O que quer dizer esta li- 
nha ? Em que situações devo utilizá-la ? 
Em MICRO SISTEMAS nº 29, pág. 
25, o artigo “As novas fitas da soft kris- 
tian” menciona algo sobre Azimuth Re- 


gulating System. O que vema ser? (Klaus 
Von Dem Bach, SP). 
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A função USR, na realidade, necessi- 
ta ser precedida por uma instrução e pa- 
ra isso qualquer instrução do seu equipa- 
mento pode ser usada, A mais comum, 
no entanto, é RAND USR xxxx, pois 
qualquer que seja o valor de retorno de 
USR, não provocará erro para a instru- 
ção RAND. A segunda em importância é 
LET S = USR xxx, porque desta forma 
a variável S receberá um valor quando 
USR retornar ao BASIC. 

Esta linha representa um teste de 
RAMTOP e serve para indicar aonde es- 
tá posicionado o topo da memória. A 
sua utilização dependerá do programa 
em questão. 

É apenas um ruído homogêneo que 
serve para ajustar o azimute da cabeça 
de leitura do gravador. Quem faz este 
ajuste é o próprio usuário, pois o som 
emitido serve apenas para se achar a 
melhor posição do azimute para uma 
determinada fita, podendo variar este 
ajuste de fita para fita. 
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— Possuo um CP-200 e sempre que 
pretendo fazer um programa em Assem- 
bler acabo com o mesmo problema: 
como fazer uma função randômica que 
produza números aleatórios e que não 
siga uma segliência como a do tipo que 
a instrução LET A = INT(30xRND) faz? 
(Luiz Alexandre Reali Costa, SP). 





Números randômicos só são obtidos, 
mesmo em Assembler, através da fun- 
ção RND. O que se pode fazer é colocar 
um contador até que uma tecla seja pres- 
sionada. Quando isto ocorrer, O sistema 
vai utilizar o valor do contador naquele 
exato momento. 





— Como faço para testar a memória 
disponível, durante a digitação de um 
programa, no Microengenho? (Luiz G. 
Salamon, RS). 


"RO SISTEMAS À 
A função FRE(O0) retorna o espaço li- 


vre de memória disponível, tanto para 
dados quanto para linhas de programa. 


Se o número for maior que 0, o próprio 
número representa a quantidade de 
bytes disponível. Se, ao contrário, for 
menor que 0, então a memória dispon(- 
vel é 65536 menos (—) o número. Por 
exemplo: se o número apresentado é 
—10, a memória disponível será 65526, 
que é igual a 65536-10. No modo 
imediato, o resultado da instrução FRE 
(0) dá a memória disponível sem a 
definição de qualquer variável (real, 
string etc.). Ao rodar um programa e 
após serem definidas todas as variáveis, 
o valor dado por FRE (0) será o número 
de bytes disponível, descartando a área 
usada para as variáveis. 
Es == 
— Por que a Prológica não lança car- 
tuchos para o CP-400 com jogos tipo 
Atari e Intellivision, mesmo levando em 
conta a perda de gráficos, já que os car- 
tuchos do Atari e do Intellivision têm 
8 e 16 K respectivamente? O TK-800 
da Microdigital pode utilizar os cartu- 
chos do CP-400 por intermédio de al- 
gum periférico? Qual a memória do 
TRS-80 Color americano e de seus prin- 
cipais computer games? Como estão dis- 
postos (cassete ou disco) e onde posso 
comprá-los? Gostaria de saber por 
que nenhuma empresa, brasileira ou 
americana, não produz micros compatf- 
veis com o VIC-20, Commodore 64 e 
Sinclair ZX Spectrum? (Afonso dos 
Santos Souza — PA). 


O MICROSIS 


O Microprocessador do CP-400 dife- 
re do microprocessador utilizado nestes 
video games. Como os programas que 
vêm dentro dos cartuchos são escritos 
em linguagem de máquina, esta diferen- 
ça entre microprocessadores impede o 
uso comum dos cartuchos de jogos. 

Não temos conhecimento da fabrica- 
ção deste tipo de periférico e nem do 
TKS-800. 

O TRS Color americano é apresenta- 
do em versões de 16 ou 64 Kbytes, sen- 
ao que os programas vêm em cassete. 

Os custos para se produzir esses equi- 
pamentos aqui nv Brasil não seriam al- 
cançados, devido a problemas de escala 
de produção. Aliado a isto, tais equipa- 
mentos, principalmente o Commodore, 
utilizam periféricos ou componentes es- 
pecíficos, portanto, difíceis de serem 
adquiridos. 
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Envie suas perguntas para MICRO SISTEMAS/SEÇÃO MS RESPONDE: Av. Presidente Wilson, 165/grupo 1.210, Centro. 


CEP 20030, Rio de Janeiro, RJ. 
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Tem hora que precisa ser micro. 





O Elppa || Plus é um micro computador 

So que tem macro vantagens 

E feito quase artezanalmente, portanto testado 

um a um, 

E isso é uma macro qualidade. 

Como é feito com componentes de alla qualidade, 
dentro dos melhores padrões de Engenharia. a 
confiabilidade do Elppa || Plus é macro 

O custo de manutenção é micró: 0 único com um anó 
de garantia - macro qualidade com macro garanta 


Tem hora que precisa ser macro. 
Conclusão: Seja para vOCÊ OU para sua empresa, 
micro ou macro, faça como a Rede Globo, a Rede 
Bandeirantes ou a Control que têm se utilizado do 
Elppa || Plus em suas necessidades empresariais OU 
como os funcionários do Bamerindus para suas 
atividades profissionais e de lazer 

Faça como tantos outros, que estão E as 






Já com o preço acontece uma coisa interessante, CIP Rai vantagens de um micro | nfia 
deveria ser macro, mas quando você verifica O custo q 4 : a lh que sabe ser macro na pm F: lá 
de uma configuração vê que é micro 2) || EA ] E Xq. hora certa, | MacrO gará | 


A assistência técnica é macro - direta do labricante “E Au 
ou alravés de seus credenciados. 

Ele à um Apple” compalivel e dispõe de vasta gama 
de expansões e periféricos à sua disposição - 
CONTROLADOR DE DRIVE, CPIM, PAL-M, 80 
COLUNAS, SOFTEWITCH, 16H, 64K, 128K, GRAPH+, 


P plus Escolha o Elppa Il Plus |1 ano inteirim | 


E a macro escolha. 
O micro macro. 227 


SUPER SERIAL CARD, SINTETIZADOR DE VOZ, Fábrica: Rua Aimbere nº 931 - S.P, Tel. 84.09 9-B72.2134 
MONITOR IH, etc... - macro vantagem, Show Room: Av. Sumaré nº 1,744 - S.P. Tel. B7Y2.4788 


« São Paulo - Audio 282-3377 - ADP System 227-4433 - Bruno Blois 223-7011 - BMK 62-9120 - Europlan 2556-9188 - Victor Show Room 872-4788 « Rio de Janeiro 

- CML 2885-6397 - Eleceerne 201-3792 - Formed 2566-4722 - Sistema 253-0645 - S€ Sistemas 232-8304 « Belo Horizonte - Spress 225-8988 « Porto Alagre - Aplitec 

24-[M65 - DB Computadores 22-5136 - Embramic 41-9760 « Vitória - Metaldata 225-4700 - Soft Center 223-5147 « Brasília - Compushow 273-2128 «e Curitiba 

- Vidoo é Audio 234-0888 « Londrina - Sot In 23-6183 « Recife - NC Sistemas 228-0160 — Tecromic 3225-3363 « Florianópolis - Micro Home 23-2283 « São Josá 
do Rio Proto - Teledata 33-2714 « Fortaleza - Systematic 244-4746 








MP 





Abrir um drive para tentar consertá-lo é arriscado para 
quem não tem experiência, mas cuidar de sua manutenção 
preventiva é uma rotina fácil 











dosé Carlos Niza 


opinião geral que os drives são 
05 equipamentos que mais cau- 
sam problemas em sistemas de 
microcomputadores. Uma cena 
comum é aquela em que se coloca um 
disquete no drive, aciona-se e nada. Ten- 
ta-se novamente, e nada. Troca-se o dis- 
quete por outro e acontece o mesmo. À 
situação deixa O usuário muitas vezes 
sem saber O que fazer. Como vamos ver 
adiante, hã alguns procedimentos que 
ajudarão nesses casos. 


Linhas 
[a digo 
[ER q 


Microcesputador 





gatinhas ET 
Controle 


Figura À 


Os drives nada mais são do que uni 
dades de armazenamento de informa- 
ções, cuja função básica é alocar os da- 
dos na supertície magnética de um dis- 
quete, como mostra a figura 1, Um con- 
junto de sinais sai do micro, passa pela 
interface e chega finalmente ao drive. 
A interface é um circuito eletrônico € o 
drive um sistema misto (eletrônico-me- 
cânico |). 

As interfaces são diferentes para os 
diversos tipos de micros, mas as infor- 


AB 





anten 


mações que chegam aos drives têm a 
mesma finalidade, que poderia ser resu- 
mida como a de acionar o movimento 
de rotação de um disquete, e escrever ou 
ler as informações nele contidas. E im- 
portante saber que nem todos os drives 
são iguais. Os da linha Apple são dife- 
rentes dos existentes para a família 
TRS-80, e mesmo para um determinado 
micro existem vários fabricantes de dri- 
ve. Tudo isso, porém, não é problema, 
como veremos. 





Podemos dividir os drives em dois 
grandes tipos: os da linha TRS-80, que 
servem para os IBM/PC, Osbome, Kai- 
pro etc., e os da família Apple. À maior 
parte dos micros nacionais (exceto os 
de lógica Sinclair) se baseia em uma das 
marcas acima. 


PRINCIPAIS DEFEITOS 


Agora, com alguns pontos já esclare- 
cidos, vamos discutir os problemas mais 


ao drive 
rodando em or 








em 





comuns. É se seu drive não está funcio- 

nando, não desanime. Observe as ques- 

ões a seguir: 

* As ligações estão bem feitas? 

* No caso do TRS-BO, o drive foi bem 
ligado à tomada? 

+ O cabo de interconexação está na po- 
sição correta? Caso a luz vermelha 
(led) não se apague, inverta a posição 
do conector do drive. 

«O disquete foi colocado corretamen- 
Le! 

Na verdade, quando o drive não fun- 
ciona devemos levantar algumas hipóte- 
ses para localizar o defeito: o computa- 
dor, a interface, os cabos, os disquetes e 
finalmente o drive. No caso do micro e 
da interface, a solução mais fácil é a sim- 
ples troca por outra compatível, para 
testar o sistema, talvez com um amigo. 
Us cabos são um problema à parte e 
muito suscetíveis a defeitos por mau 
contato. Por isso, muito cuidado com 
eles. Em caso de suspeitar que sejam a 
causa do problema, o ideal é medir a 
continuidade com um ohimetro, entre 
os pinos correspondentes. 

: importante nunca desconectar um 
cabo puxando pelos fios, e sim seguran- 
do pelo conector. O melhor, mesmo, é 
deixá-los sempre interligados. Os dique- 
tes merecem um quadro separado que 
deve ser lido com muita atenção. Se por 
eliminação as quatro primeiras causas 
são descartadas, resta examinar o drive. 
Antes de qualquer providência, desligue 
o computador. E prepare uma limpeza 
no equipamento com o seguinte mate- 
rial; álcool, cotonetes, disquete virgem, 
perfex ou um pano limpo que não solte 
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Motor de 
tracionamento  ——eli 


Detetor de index 


Parafuso da placa 


detetor de escric. 





pol 


Figura 2 


fiapos, óleo de máquina de costura, cha- 
ves de fenda Philips e alicate. 


PROCEDIMENTO CUIDADOSO 


O drive é um equipamento muito 
sensível e deve ser manuseado com bas- 
tante cuidado na hora de ser retirado. 
No Apple é só liberar os quatro parafu- 
sos de baixo e deslizar a tampa para a 
frente; solte depois os outros quatro pa- 
rafusos do mesmo lado, liberando a 
tampa de trás. No TRS-80 (modelo 1) 
siga igual procedimento em relação aos 
quatro parafusos, que são laterais. No 
modelo III, há um pouco mais de tra- 
balho. O micro deve ser deitado de lado 
e retirados os parafusos debaixo. Reco- 
loque-o na posição correta com muito 
cuidado e levante a parte superior do 
computador. Muita atenção com essa 
operação para não danificar o tubo de 
imagem. Feito isso você terá à sua direi- 
ta os drives. Então é só liberar os parafu- 
sos laterais. 

Daqui para a frente os drives do TRS- 
80 ou Apple serão tratados como se fos- 





Parafuso de ajuste 
da trilha zero 


Trilho de suporte 
da cabeça 


Stepper motor 


Cabeça 


E:xo de tracionamento 
do disquete 


sem iguais. No caso de alguma particula- 
ridade entre eles será feita a distinção. 

Continuando, solte os dois parafusos 
que prendem a placa do circuito impres- 
so e desconecte com o maior cuidado a 
cabeça do drive. Levante a placa devagar 
e faça uma rotação de 180 graus. Não há 
necessidade de se desligar os conectores 
na parte traseira, mas tenha atenção 
para não danificá-los. 

Na figura 2 temos um lay-out da par- 
te superior do drive. Podemos destacar 
como peças importantes a cabeça, a par- 
te superior do stepper motor e o motor 
do drive. 


LIMPEZA DA CABEÇA DO DRIVE 


Grande parte dos defeitos se origina 
pelo acúmulo de sujeira na cabeça do 
drive. Uma maneira fácil de limpá-la é 
com o uso de um disquete de limpeza. 
Porém, nem sempre esse disco está à 
mão. E devem ser evitados aqueles de 
efeito abrasivo, que podem, no caso de 
serem usados frequentemente, danifi- 
car a cabeça. De qualquer forma, sua 





utilização precisa ser evitada seguida- 
mente. A outra forma de limpeza é com 
cotonete levemente embebido em ál- 
cool. Na figura 3, podemos ver esse pro- 
cesso. 

Há uma série de etapas que devem ser 
obedecidas nessa tarefa. Abra a porta do 
drive, levante com cuidado o mecanismo 
da almofada e limpe a cabeça. Depois de 
seca, rêécoloque suavemente a peça no 
lugar. A cabeça tem um movimento pa- 
ralelo ao eixo longitudinal do drive, 
apoiada em dois trilhos. Com o passar 
do tempo e o acúmulo de poeira nesses 
trilhos, pode surgir dificuldade para 
que o movimento se processe livremen- 
te, defeito caracterizado por um ruído 
de atrito. Neste caso, pegue um cotone- 
te e umedeça-o com uma gota de óleo, 
passando-o nos dois trilhos. Não esqueça 
que a quantidade deve ser mínima, para 
não respingar em outros locais. 


AJUSTE DA VELOCIDADE 


Um desajuste de velocidade pode ser 
a razão para alguns problemas. Há dis- 


Compreenda melhor os pequenos defeitos 


pequena descrição a seguir não 
A tem como objetivo analisar em 
pormenores de funcionamento o cir- 
cuito eletrônico do drive, mas sim 
auxiliar na compreensão de um possí- 
vel defeito. Para exemplificar falare- 
mos de um drive de TRS-80, cujo 
funcionamento é todo na base de 
hardware, o que não acontece com o 
Apple, que também tem software pa- 
ra as mesmas finalidades. 


Ão se dar um boot (inicialização) 
no drive, ao mesmo tempo em que se 
inicia o movimento de rotação do 
disquete, a cabeça é deslocada até a 
trilha zero, que é a externa. Nela há 
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informações que vão levar a cabeça 
para uma determinada trilha onde 
normalmente se encontra o diretório. 
Isso é feito (incremento de cada tri- 
lha) pelo pulso do index, um circuito 
que detecta cada vez que o furo do 
index, no disquete, passa por ele. À 
trilha zero é detectada por uma chave 
que se fecha quando a cabeça retorna 
e o movimento, para frente ou para 
trás, é feito em conjunto por duas li- 
nhas: step e direção. 

Há ainda os circuitos de leitura e 
escrita. Todos eles são monitorados 
pela interface do drive, que é na rea- 
lidade quem dá as ordens para as di- 
versas fases e as interrelaciona entre 


si. Existe também um circuito que 
controla a velocidade de rotação do 
drive e um potenciômetro que permi- 
te sua regulagem para 300 RPM. 


Finalmente, as tensões requeridas 
são de +5 e +12 volts, fornecidas por 


uma fonte de alimentação, separada 
do TRS-80, ou pelo próprio compu- 
tador no caso do Apple. 


Nas interfaces os defeitos ocorrem 
por queima de componentes, princi- 
palmente dos CI's e capacitores de 
tântalo. A reparação deve ser feita 
por pessoa com conhecimento de cir- 
cuitos eletrônicos, empregando apa- 
relhos apropriados. 
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MANTENHA O DRIVE RODANDO EM ORDEM 


a do r, 
RENTE 2 ricas 
TIA MNT Sa PI 


quetes que carregam, outros não. Há 
sistemas operacionais que funcionam 
com determinado programa e outros 
para os quais esse mesmo programa não 
é aceito. É importante saber que existe 
uma placa que controla a velocidade do 
drive (figura 4). Existem modelos de 
drives — tanto na família Apple quanto 
TRS-80 — que já não apresentam essa 
placa, sendo o circuito de controle in- 
corporado à placa principal (figura 5). 

A velocidade do drive deve ser de 
300 RPM e o componente que permite 
o seu ajuste é o potenciômetro. Mas 
existem diversos artifícios para a regula- 
gem de velocidade, veremos dois dos 
mais utilizados. O primeiro deles é com 
o emprego de um programa. Neste caso 
ele vem incorporado normalmente a dis- 
quetes de teste, como por exemplo o 
Apple Cilin. Utilize-o seguindo as instru- 
ções do manual para obter na tela a ve- 
locidade. Depois é só ajustar o potenció- 
metro com uma pequena chave de fen- 
da, girando o eixo para um lado ou ou- 
tro. Deve-se tentar aproximá-la ao máxi- 
mo de 300 RPM, ou em outros progra- 
mas zerar-se a margem de erro. 

Há também o sistema de regulagem 
com o uso do disco estroboscópico. 
Quem não possui o programa de teste 
pode empregar este método. Vemos na 
figura 6, um disco que possui em seu in- 
terior duas circunferências raiadas. A in- 
terna com o número 50 e a externa com 
o número 60. O processo é bem simples. 

Pegue uma lâmpada fluorescente e 
ilumine diretamente esse disco. Acione 
o computador. Como a luz fluorescen- 
te pulsa numa frequência de 60 hz, quan- 
do o drive estiver com a velocidade cer- 
ta haverá a impressão de que a circun- 
ferência raiada externa do disco está 
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Potenciômetro de ajuste 


de velocidade 





Figura 6 


parada. Para a regulagem ajuste com 
cuidado o potenciômetro até parar o 
disco estroboscópico. 


OUTROS AJUSTES 


Outros tipos de defeitos também são 
normais, porém menos frequentes do 
que os já analisados. Eis alguns deles: 


Amplitude mínima 1/8 
do valor maximo 


Figura 7 











* Descentralização do detector de ín- 
dex (não existe no Apple). 

* À chave (switch) detectora da trilha 
zero pode não estar totalmente sincro- 
nizada com esta trilha, sendo talvez ati- 
vada um pouco antes ou depois, fazen- 
do com que o movimento da cabeça não 
seja correto, pois a trilha zero é usada 
como referência para as demais. No 
Apple a detecção é feita de maneira dife- 
rente mas com a mesma finalidade. 

* Alguns dos parafusos com lacre, que 
servem para ajuste da trilha zero, pres- 
são da almofada da cabeça etc., podem 
estar folgados, causando a pane. 

Estes defeitos são de origem mecâni- 
ca e a correção deve ser feita com o em- 
prego de um disco de alinhamento e um 
osciloscópio de duplo traço. Trata-se de 
um trabalho delicado, que só deve ser 
feito por técnicos especializados e de- 
vidamente aparelhados. O disquete é 
gravado por uma cabeça especial, tendo 


Alinhamento 


“"* perfeito 
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O s disquetes requerem, sem duvi- 
da, um manuseio bastante cuida- 
doso. Quem ler o artigo de Antônio 
HLP Arantes, nos números 9 e 10 de 
MS, verá que há muito mais tecnolo- 
gia empregada nos discos flexíveis do 
que se possa imaginar, A figura 8 re- 
presenta um disquete e algumas de 
suas partes. 4 figura 9 mostra a su- 
perfície de um disquete e as dimen- 
sões de alguns elementos referencia- 
dos entre si. 

Como curiosidade é bom saber 
que a cabeça do drive não assenta to- 
talmente sobre o disquete e vai dai 
uma dica: não force o disco ao colo- 
cá-lo, pois poderia haver um contato 
forçado e o drive não funcionaria 
adequadamente. Nunca é demais re- 
petir as precauções necessárias com 
os discos: 

* Mantenha-os afastados de qualquer 
fonte eletromagnética ou mate- 
riais magnéticos. E comum colo- 
car um disquete encostado ao mo- 
nitor ou televisão e quando se vai 
utilizá-lo não entra. Provavelmen- 
te foi apagado por um campo ele- 
tromagnético. 

* Conserve-os em posição vertical, 
para não empená-los, e dentro de 
seus envelopes. 

* Não fume, coma ou beba em cima 
dos disquetes. 

* Não coloque os dedos nas ranhu- 
ras de leitura escrita. 

* Não os coloque em lugares mofa- 
dos ou muito quentes e nem dire- 
tamente sob os raios solares. 

* Escreva as etiquetas fora do dis- 
quete. O uso de canetas ou obje- 
tos pontiagudos ajuda a danificá- 
los. 

Não dobre os disquetes, 

* Em drive que usa uma só cabeça 
(face simples) o lado que está em 
uso é o oposto ao da etiqueta de 


duas trilhas (O e 16) como padrões de 
referência. 

A trilha 16 serve para alinhar a cabe- 
ça do drive. Com o osciloscópio ligado 
em pontos específicos e devidamente 
setado, são obtidos dois lóbulos, confor- 
me a figura 7. Há necessidade, ainda, de 
um aparelho ou programa para se deslo- 
car até a trilha desejada. A trilha zero 
serve para sincronizar a cabeça com esta 
posição inicial. 

Existem algumas variáveis em jogo e 
para um correto alinhamento devem 
ser afrouxados os diversos parafusos que 
estão lacrados. Feito isso, gira-se o step- 
per motor nos dois sentidos, até se obter 
os dois lóbulos simétricos e de igual am- 
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PROTEÇÃO PARA ESCRITA 


- ORIFÍCIO DE TRACIONAMENTO 


ORIFÍCIO DE INDEX 


SUPERFÍCIE DE GRAVAÇÃO/LETTURA 





Figura 8 


fábrica. Cuidado redobrado com 
ele. 

* Lugares que tenham tapetes ou 
carpetes não são os mais indicados 
para que fiquem os computadores, 
pois são ambientes empoeirados 
por natureza. 

* Nunca passe o espanador em áreas 
próximas ao seu micro, pois espa- 
nar só muda o pó de lugar. Use, 
em vez disso, um aspirador de pó. 
Finalmente, se o seu drive tem 

duas cabeças (dupla face) as informa- 

ções contidas nos disquetes (dos dois 


Partículas 


de Fumo 


lados) foram escritas com o disco gi- 
rando no mesmo sentido. No caso de 
uma só cabeça, temos que retirar o 
disquete e inverter a face. Com isso 
estamos também trocando o senti- 
do de rotação. Nesse caso há possi- 
bilidade de se desprenderem parti 
culas de sujeira do disquete devido a 
inversão do movimento. Como a dis- 
tancia entre a cabeça do drive e a su- 
perfície do disquete é muito pequena 
qualquer partícula de sujeira assume 
dimensões consideráveis, podendo 
danificá-lo. 


Partículas 
de Po 


Impressões 
Digitais 


> SSI III III SIS TIS SSIS SSIS SS SSIS SSIS ISIS CSS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSISSSSSSSSESISSSSSISCSSSSSESS 


milímetros 


Figura 9 


plitude. Desloca-se a cabeça à trilha ze- 
ro, verificando se está com o máximo si- 
nal. Qualquer ajuste neste caso se pro- 
cessa no parafuso de parada da trilha ze- 
ro. Outra coisa importante é que o drive 
às vezes se encontra desalinhado para as 
trilhas inferiores e não para as superio- 
res, e vice-versa. 

Reposição de peças é talvez o item 
mais problemático, já que, por exemplo, 
as partes mecânicas não são encontráveis 
no mercado. Mas é pouco comum haver 
o desgaste delas. Os componentes ele- 
trônicos (com algumas exceções) são 
normalmente de fácil reposição. 

Este artigo é resultado da experiência 
do autor há vários anos em projetos e 





manutenção de microcomputadores, 
tendo mais finalidade preventiva que 
corretiva. Com esta leitura o usuário 
pode se prevenir contra alguns possíveis 
defeitos. Mas ele deve ter em mente que 
qualquer manutenção deve ser muito 
cuidadosa, para que não se agrave mais 
um problema que já exista. 

pi 


tua + 
+ 4 


José Carlos Niza é Engenheiro Eletrônico for- 
mado pela Faculdade Nuno Lisboa e trabalha 
com microprocessadores nas áreas de manu- 
tenção, projetos e análises de sistemas na 
Computer Service, RJ. 
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trs-80 trs-80 trs-80 trs-8 930 CLSILPRINT TADC(20);UnMM “5 JG;” neRCILPRINT TABCÍB);“BALANCET 


E DO MES DE: “;F% 

940 LPRINT STRINGS(BO,“=") 

950 LPRINT TAB(S5);"COD.“;TAB(4S41)FCONTA”; TAR(SO); “RECEITAS”; TAB( 
69) 4" DESPESAS” 

960 LPRINT STRINGS(BO, =") 

9270 FOR I=1 TON 

980 IF A(I)=0 THEN GOTO 1040 

990 LPRINT TAB(S)FUSINGOHHHOSACI)FILPRINTO -“FELPRINT TABCLL)GCS 
(1); 

1000 LPRINT TAB(45); 

1010 LPRINT USING Vo;VHCT); 

1020 LPRINT TAB(65); 

1030 LPRINT USING VoGYHCI) 

1040 NEXT 1 

1050 LPRINT TAB(49);=====esza====" TAB(68);C====2====0== 

1060 LPRINTTOTAL RECEITAS. ...c-coneroroncrconcocorconass “STAB(4 








DIGITAÇÃO DE DADOS 
OPERAÇÃO DE MINIS 
PROGRAMAÇÃO PADRÃO 
— BAS / LOG / COBOL / ESTÁG. 
LINGUAGENS OPCIONAIS 
— COBOL ANS - IBM 
— BASIC COMERCIAL 

(LABO E SISCO) 
— MUMPS (COBRA 300/500) 
ANÁLISE DE SISTEMAS 
PROGRAMAÇÃO DE MICROS 
— BASIC | - INTRODUÇÃO 
— BASIC Il -. AVANÇADO 
— CP/M - SISTEMA OPERACIONAL 
INFANTO JUVENIL (8 À 16 ANOS) 
— BASIC 1.0/2.0 GRAUS 
— CRIANDO COM LOGO 


Is 
e | hn 1070 LPRINT USING V$;DH 
IDO LPRINTE SALAO ADERTLO ertoda citIS A DEPARA DES DÁS “sTAB(A 


Roberto Martorelli Luz spots gut 2 iPP stat 


LPRINT USING V$7CH 
LPRINTOSaldo Atual “ETAB(S 


LPRINT USING VoFATH 
LPRINT TAB(47);)—— — cem armasao CITAB(67))"-=== ===. 
LPRINTOT O TAIS CI TAB(A 
S)FILPRINT USINO VoGPH; 
1140 LPRINT TABC55);FUSING VE: TH 
1170 RETURN 
1180 OPEN“O”,2,US 


Sem dúvida nenhuma, elaborar um balancete, por menor | rão acumulados e, em caso de erro, os mesmos serão diminu í- 1490 FOR I=1 TO N USUÁRIOS DE MICROS 
que seja, é sempre uma tarefa desgastante. Foi como objetivo dos através da opção 7. Após terem sido digitados todos os A A a im PR PR PA — VISICALC 
de facilitar este trabalho que se desenvolveu este programa. dados, resta uma pequena rotina que indagará acerca do saldo 1220 NEXT IO aê: dr = os o — EDITOR DE TEXTOS 

ds se OCA à " . q par “da À. 1230 CLOSE 2 

O programa se inicia pedindo mês e ano e, em seguida, o anterior e atual. Estes valores não são arquivados, mas apenas 1240 RETURN 
nome da empresa ou entidade. Após digitados esses dados, precedem a impressão do relatório através da opção 6. A op- odO SE ACI PNEU SOS LUdO 
ele perguntará se deseja inicializar os lançamentos, devendo, ção 4 apenas pede o código da conta e a retira juntamente com ge DS ES 1 
então, digitar-se um S. Porém, após inseridos alguns dados, a o valor: através da opção 8, encerram-se os lançamentos, e os 1290 1=0 
resposta deverá ser sempre N, a fim de não se perder os dados dados são regravados. 1340 INPUT/SALDO- ANTERIOR 2” ANH Computação 
.. ks 4 dd ds , 1320 PH=ANH+DIK 
já armazenados — no caso de arquivos já iniciados, poderá ser 1390 INPUT"SALDO ATUAL 2“;ATW ne 
posta uma salvaguarda. 1340 TH=ATHACH Ensino com Alto Padrão de Qualidade 


CAMPINAS : Rua César Bierrenbach, 171 - Fone 8-3608 
SÃO PAULO: Av. Rouxinol, 201 - Moema - Fone 61-4595 
R. JANEIRO: Av. N.S. Copacabana, 1417 - Lj. 313 - Fone 521-1549 


O menu apresenta oito opções. A primeira delas lista o 
balancete, e a segunda cadastra as contas e o lançamento ini- 


cial. Caso se queira apenas cadastrar as contas, basta digita 
q Pp , gitar O Roberto Martorelli Luz é economista e trabalha no Banco do Brasil. Há Balancete 


valor 0. A terceira opção adiciona lançamentos, onde será per- mais de um ano ele possui um DGT-101, no qual desenvolve trabalhos 
guntado se é débito ou crédito. Nesta sub-rotina, os valores se- dentro de sua especialidade. 


"k ESTE PROGRAMA EMITE BALANCETE 450 NEXT 1 
"x Econ.ROBERTO MARTORELLI LUZ ” 460 PRINT STRING$(394,”,” 
É r » )JFSPRINT STRING$S(29,%=” 
És AV. 7 DE SETEMBRO, 1483 x 470 PRINT"TOTAL RECEITAS ” e Me 
“ FONE: (055) 423-1726/1259 “ 480 PRINT USING V$;DH : ndo 
'* 97.560 QUARAI-RS " 490 PRINT"TOTAL DESPESAS. ...... 2“ TAB(4B) 
DO DD DDD DO OD 500 PRINT USING VSCH Cr ttTaca E ' 
CLEAR 000 ” 940 PRINT=:INPUTCONTINUA” 56% 
CLS: INPUTTMES C(MMHMMHM/ZAA)4“FFS 320 RETURN 
PRINTS INPUTYQUAL A EMPRESA 1535 530 N=N+1 
PRINT: INPUTYQUAL O NOME QUE IDENTIFICARA O ARQUIVO” GUS 340 INPUTYCODIGO DA CONTA:“;A(N) 
VS="HHH, HAM, MEM. MR 545 IF A(N)=0 THEN 620 j | 
GOSUB 4180 a M 950 INPUTONOME DA CONTA:“;C$(N) 
CLSIPRINT TAB(1S)pO nun BALANCETE nmm 560 INPUT“DEBITO/CREDITO:”;7% 
PRINTESPRINT TAB(15)7"4. Listar o Balancete” 570 INPUT“Valor Cr$ : “UAM 
PRINT TAB(15)5"2. Cadastrar Conta e Lancamento Inicial” 580 IF Z$=“D” THEN VHCN)=VLH 
PRINT TAB(45):4"3. Adiciona lancamentos” 590 IF Z$8="C” THEN YHCN)=VLH 
PRINT TAB(145)574. Retirar um lancamento” 600 DH=DH+VHCN) 
PRINT TAB(45)5"5. Imprimir o Caixa” 610 CH=CH+YHC(N) 
PRINT TAB(15)5"6. Fechar o mes” 615 GOTO 530 
PRINT TAB(145):77. Estornar Lancamentos” 620 RETURN 
PRINT TAB(145)5"8. Encerrar os lancamentos” 430 INPUT“COD , “e 
PRINT:PRINT:INPUTYQUAL A OPCAO “50 , 640 GOSUB Ea oia 
ON O GOSUB 340,530,630,760,930,1310,820,1180 650 IF I=0 THEN RETURN 
Adi GoTo 50 660 CLS:PRINTOCONTA 2:“;C$(1) 
670 INPUTYN nm 
DIM A(500),CS(500),VH(S00), YHCSOO) 680 IF CISCO THEN CSCLVCDIE 
Wi Rad 685 PRINT 
= 
O UR 690 PRINT TAB(B)F "RECEITAS"; TAB( 25); “DESPESAS” 
R 700 PRINT TAB(3);2:PRINT USING V$FV 7: ;: 
244 CH=0 NG VSsYNCI) FUHCI)GSPRINT TAB(20);2PRINT USI 
215 ViíH=0 as as 705 PRINT:PRINT 
220 CLSFINPUTODESEJA INICIALIZAN OS LANCAMENTOS" GLS 710 INPUT“VALOR DO LANCAMENTO :“;BH 
dg . ; 
cá Ro A bia GOTO 310 720 INPUTODEBITAR OU CREDITAR (D/C) :7;0$ 
a Fria E 730 IF 0$=“D” THEN VHCI)=VNCI)+BHEDH=DH+BH 
2 740 IF 0$="C” THEN YHCID)=YHC ID +BH=SCH=CH+BN 
276 INPUT ACN), CSCN),VHCN>, YHCN),DH,CH Es ia 
' ' ' , UM, 760 INPUTYCODIGO DA CONTAZ”; 
280 GOTO 250 770 GOSUB 1250 t 
Eq ip 780 IF I<)0 THEN A(I)=0 
2, 800 IF A(I)J=0 THEN CH=CH-YHCI) 
320 CLOSE 2 810 RETURN 
330 RETURN B20 INPUT” 8” 
340 CLSIPRINT TABC SD mam “5JS5” “un”SPRINT TAB(12);/BALANCETE tarot hai 
o e ct E seara B40 IF I=0 THEN RETURN 
5 “ “e p aê “ “ “ “e 850 CLS:PRINTOCONTA: “rC6(I) 
360 PRINTTCOD."FTAB(6);TCONTAC;TAB(3S5)5"RECEITAS";TAB(S2)7“DESPE 860 PRINT:PRINT TAB(B);“RECEITAS”;TAB(25) “DESPESAS 
or , - ; essi dá 
aro PRINT STRINGS(693,7-") O PETI Ras mente Ego Cla LAS ag i 
WS 870 ;s ] : 
Ad RON Toi TÓM rd Pigs! nd PRINT USING V$FUNCI);SPRINT TAB(20);:PRINT USI 
390 IF A(I)=0 THEN GOTO 450 880 PRINTEPRINT: A ã 
400 PRINT USING“HHHO SACI) SPRINTO="p SPRINT TAB(S)SCSCT) 890 INPUT“DEBITAR/EREDATAS (ROO PORNOS KM 
pr ERENT contada vii 9200 IF M$="D” THEN UNCI)=UNCT)-KHEDH=DH-KH 
: 7210 IF M$=7C” THEN YHCIo=YHCID-KH=ECH=CH-KH 
430 PRINT TAB(48); 97206 RETURN 
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Sim, desejo receber 








O projeto MICROBUG, desenvolvido pela equipe do 
CPD de MS, foi criado para auxiliar o entendimento e 
a exploração dos recursos existentes nos micros da 
linha Sinclair. Sua construção, passo a passo nas 
páginas da revista, tem tido importância decisiva no 
aprendizado e desenvolvimento dos usuários na 
programação em linguagem de máquina. 

Devido ao enorme sucesso do MIC ROBUG, refletido 
nas inúmeras cartas que temos recebido, a ATI 
EDITORA LTDA. optou por oferecer a versão 
integral do MICROBUG. 

Para tal, foi contratado um estúdio especializado, 
garantindo um padrão de gravação profissional e 
uma embalagem inviolável que você irá apreciar. 
Como a documentação do MICROBUG começou em 
MS nº 31, aqueles que adquirirem a fita terão a 
OPORTUNIDADE DE COMPRAR OS 
EXEMPLARES QUE NÃO POSSUAM POR UM 
PREÇO ESPECIAL. Aproveite esta chance e 
usufrua logo do MICROBUG em sua forma integral. 
Preencha o quadro ao ladoe mande já o seu pedido, 
TIRAGEM LIMITADA. 






[] a fita MICROBUG, pela qual pagarei Cr$ 20 mil + Cr$ 4.300,00 referente a 
despesas do correio. 

[] os números atrasados de MS, pelos quais pagarei o preço de Cr$ 1 mil* por exem- 

plar. Me interessam as edições: L] MSnº 31 [L] MSnº 33 

[] MSn?º32 [] Msnº 34 

TOTAL:CrS 









NOME: seas 
ENDEREÇO: coca yo sniirans 
q A 7 
















Para tal, estou enviando um cheque nominal à; ATI Editora Ltda. (Projeto MICROBUG) 
Av. Presidente Wilson nº 165, grupo 1210 — Centro — CEP 20030 — Rio de Janeiro, RJ. 
* Despesas de reembolso excluídas 

0BS.: Os produtos acima podem ser adquiridos diretamente em nossos escritórios do 
Rio ou São Paulo sem despesas de correio. 
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Controle de Congelados 





Marcelo Renato Rodrigues 


Atualmente observa-se um cresci- 
mento considerável da demanda de pro- 
dutos congelados, seja por motivos prá- 
ticos ou econômicos. Para possibilitar 
a escolha do produto com segurança, 
além de informar onde encontrá-lo rapi- 
damente dentro daquela deliciosa confu- 
são que é um congelador doméstico, de- 
senvolveu-se este programa. Ele cadas- 
tra produtos em disquete, permitindo 
consulta, exclusão, alteração de dados e 
obtenção de listagens. 

O FRI é um programa conversacio- 
nal e, portanto, a sua utilização é orien- 
tada através de menus, dispensando 
preocupações maiores. Foi concebido 
para possibilitar o acesso aos dados con- 
tidos no arquivo, tanto pelo nome do 
produto ou parte dele quanto pelo có- 
digo do registro, permitindo a varredu- 
ra de todos os produtos com o nome 
fornecido. Para isso, ele constrói uma ta- 
bela-índice na memória que dará a ne- 
cessária velocidade de acesso quando 
nesta segunda modalidade de pesquisa. 

Além dessa facilidade, o FRI possui 
rotina para formatação dos dados de 
entrada via INKEY $ e executa o reapro- 
veitamento dos registros excluídos, oti- 
mizando, assim, a utilização do dis- 
quete. 

É emitida, quando solicitada, a lista- 
gem organizada que pode ser apresenta- 
da de duas maneiras: com os produtos classificados em ordem 
alfabética (Figura 1) e por gavetas ou prateleiras (Figura 2). 

Na figura 1, cada linha corresponde a um produto, e as 
informações de cada um deles, além do número do registro, que 
é uma das modalidades de acesso, são acompanhadas por um re- 
tângulo. Cada produto retirado do congelador deve correspon- 
der a uma marca neste retângulo para posterior atualização do 
arquivo em disco. 

Os produtos são cadastrados através de seu nome (14 
posições), descrição (20 posições), gaveta (de 1 a 7) e data 
(dd/mmy/aa). 

Agora mãos à obra e bom apetite! 


PRODUTO 


ALMONDEGAS 
BACALHAU 
BOLINHOS 
BOLINHOS 
CABRITO 
CARNE ASSADA 
COELHO 
COSTELETAS 
COUVE-FLOR 
FRANGO 
LEITAO 
PETXE 
PUDTM 
TORTA 
TORTA 


Figura 1 





Marcelo Renato Rodrigues é engenheiro eletricista, formado 
pela Escola Politécnica da Universidade de São Paulo. Atual- 
mente ele trabalha na CESP -— Companhia Energética de São 
Paulo como Assessor de Planejamento da Vice-Presidência de 
Produção e Transmissão de Energia Elétrica. 
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DESCRICAO 
FRITAS COM MOLHO 
GRELHADO A BEIROA 
DE CAMARÕES 

DE BACALHAU 
ASSADO AO FORNO 

A PORTUGUESA 


A JARDINEIRA 


DE PORCO GRELHADAS 


- 
., 


MU GRATIN 

FRITO COM MOLHO 
ASSADO A MINEIRA 
MOQUECA à CAIPIRA 
De BANANA 

DE MORANGOS 


PALMITO E CAMARÃO 


GAVETA PRODUTO 


BACALHAU 
BOL TINHOS 
LETTAO 
FEIXE 
BOLINHOS 
TORTA 
CABRITO 
ALHONDEGAS 
CARNE ASSADA 
COELHO 
FRANGO 
COSTELETAS 
TORTA 
COUVE-FLOR 
PUDIM 


NANA SDLULSVUNNV 


GAVETA 3 
GAVETA 5 


Figura 2 


EE" es 


trs-80 trs-80 trs-80 trs-8 


GAVETA 


LISTAGEM DE PRODUTOS CONGELADOS EMITIDA EM 00/00/ 0 


DATA 


12/04/84 


13/02/84 


10/12/84 


13/01/84 


13/02/84 


18/02/84 


07/09/83 


13/01/84 


13/02/84 


celir/83 


20/14/83 


ier/02/84 


10/08/84 


15/02/84 


12/03/84 


DESCRICAO 


GRELHADO à BELIROA 
DE BACO Hall 
ASSADO A NMIHEIRA 
MOQUFECA à CATPIRA 
DE CAMARDOES 

DE MORANGOS 
ASSADO nO FokRHO 
FRITAS COM MOLHO 
à PORTUGUESA 

À JARDINE IRA 
FRITO COM nOLHO 
DE PORCO GEELHADAS 
PALHITO E CAMARÃO 
AU GRATIN 

DE Banana 


GAVETA q 
GAVETA 7 
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DATA 


13/02/04 
15/01/7284 
et/117/03 
12/02/84 
10/12/04 
tS52027/64 
13/20027204 
12/01/04 
18/02/84 
07/09/03 
Po/142/03 
15/01/84 
fozunsz04 
13/02/7284 
10/02/04 


RE( 








TO RENAN ERKEEKKAKAEREEXERALKAEEENARR NE ED NEI 

15 x CONTROLE DE PRODUTOS CONGELADOS — FRI x 

20 ** MARCELO RENATO RODRIGUES - SAO PAULO JULHO/B3 * 

PS PRM DER MIM DEE DEDE DE IE DE DEDE DEDE DEI DE DEDO DEDO E DE DEDE DEDO DE DE DEDE DEDE DEDE DO DE DEDE DE DE 

30 CLEARIONOOZDIMNOS (300), TES(300),G(7) 2 DEFINTI-NZKU=0 

35 DZ=PEEK (16929)+4400:MM=PEEK (16924) 4400: AZ=PEEK (16922) SDAS=RIGH 
TECSTRECDL) 24 /04RIGHTECSTRE (MM), 254727 4RIGHTELSTRE CAL) ,2) 260T 
045 

40 AG=INKEYS: IFAG=""THENGOTOSO — ELSEAZ=ASC(AS) RETURN 

45 UPE=SSTRINDS(42, 131) 5DWG=STRINGS(42, 476) :SD$=CHR$CLPL) 

40 OPENZR”,4,“FREEZER/DATO,43 

55 FIELD 4, £4 AS N$, 20 AS ES, 1 AS TS, BAS 55 

40 N=LOF(1)5TFNÇ)OTHENEORI=1 TONSGETL, IENOSCI)=LEFTSCNS, 14) +STREC 
DI TESCI)=TE+NOS CI) ENEXTISCMDZ0”,N, NOS(L)ECMDZ0”,N, TES(A) 

65 CLS:GOSUBS4S  ZBOSUASZO sCX=Í:PX=BL6ITA=S EGOSUBS2O  s0PZ=VAL 
(U%) 

Z0 IFOPALIOROPZ>4THENGOSUBS2O - 20PZ=VALC(WE)2GOTOZO 

75 IFOPZILANDOPZCSANDN=DTHENGOSUBBS — :GOSUB620  FOPZ=VALCW$) BO 
TOZO 

BO ONOPXGOTOLOS ,195 ,300 ,365 ,445 ,540 

85 PRINTOBLI, “;SPRINTOR99, “NAO HA REGISTRO - TENTE DE NOVO”; 
90 GOSUB9S — zGOSUBLOO. RETURN 

25 FORNN=1TO400:NEXTNNZRETURN 

£D0 PRINTOB9Z, STRINGS (64,92); RETURN 

105 CLS:GOSUBS4S sPRINTABI, STRINGS (24,42); !PRINTOLAZ,XCADASTRA 
R PRODUTOS *” ; 

140 PRINTOZLL, STRINGS(24,42);2PRINTO;=2FORJ=5 TONS IFLEFTS(NOS CJ), 
1)=CHR$(491) THENGOTOS75  ELSENEXTJEN=N+4 :RG=NE JT=NE J=N 

145 PRINTOS2B, NOME ======)"; 

120 PRINTO4S6, “DESCRICAO =)“ 
125 PRINTOSBA, “GAVETA ====)* 
130 PRINTOZLZ, “DATA ======)"; 

135 PX=341:C%=2:T%=14:G0SUB420  ENOS=US 

140 TX=20:P%=4697:G0SUB420 zENS=WS 

145 Tá=1:PZ=5972:G0SUB420 sTES=WS 

150 TZ=B:PX=7252:60SUBS20 :SAS=4S 

155 LSETN$=NOS:LSETES=ENSILSETTS=TES:LSETSS=5AS 

160 PUTA, RG:NOSCJ)=LEFTECNOS+STRINGS (44,2 “),44)+STRECGRG)ITES(JT 
/=TEG+HNOS (1) 

165 PRINTOS9Z,))QUER CONTINUAR (S ou N)2%;3GOSUB4O 
ENGOTOLOS 

170 XX=SNECHD/0”, XL,NOBCL) E CMDZ0,N, TESCL) 260TO6S 
175 RB=VAL(RIGHTS(NOS CJ), LENÇNOS()))-44)) 

180 FORJT=ITONSIFVALCRIGHTSCTES CIT), LENCTESCJTI)-15))=ROTHENGOTO 
145 ELSENEXTITEJT=EJ:GOTOLAS 

185 CLS:GOSUBS4S  «PRINTOBI, STRINGH(22,42);2PRINTOL4Z,“XCONSULTA 
R O CADASTROR”;2PRINTAZL 1, STRINGS( 22,42); 3RETURN 

190 PRINTO3IZ, “ESCOLHA O MODO DE PESQUISA:”;:PRINTO4Z2,"(1)) COD 
[BO”;2PRINTAG0O,(2)) NOME”; 2PRINTOZ24, SUA OPCAO))) EA ETs 
Z=12Ti=1:PX=738:GOSUB420  zOPZ=VALC(UG)= IFOPZLLOROPZI2THENADO EL 
SERETURN 

195 GOSUBÍBS :GOSUBÍPO zONOPZGOTO2SS ,275 

200 PRINTO4SO, “DADOS: “s 

205 PRINTASBS, “NOME ======) “;N$;2PRINTOSSO, "DESCRICAO =) “sESs1 
PRINTAZIA, “GAVETA ====) “;T6;2PRINTOZZB, “DATA ======) “;8$y 3RETU 
RN 

240 PRINTASPA, CODIGO)”; EPX=4042TA=9:0A=1 :GOSUBAZO 2I=VALÇMS)2T 
FIXLORI)NTHENGOSUBSS — :G0T0240 

245% GETA, ISIFLEFTS(NS, L)=CHR$(491) THENGOSUBES 2GOTOZ4O 

220 RETURN 

225 PRINTOIPA, “NOMES psPZ=ADPETA=142CX=2260SUBS2O  :NOS=W$ 

290 NOS=LEFTE(NOS, 14) 

295 FORJ=IZTONZYSSLEFTE(NOGCI), 14) YE=LEFTECYS, LENCNOS)) 

240 IFNOS=YETHENI=VAL (RIGHTS (NOS CJ), LENCNOS (1) )=14)) 3 GETÁ, ISBDOTO 
250 

245 NEXTIZGOSUBOS  sKU=4 

250 RETURN 

255 BOSUBIOS <IZ=f 

260 GOSUB210 

265 YFKU=ÍTHENKW=0:GOSUBAS | 607065 | ELSEGOSUB2OU 


- “. 


:IFAZ=B83TH 


270 PRINTOIBPZ, QUER CONTINUAR (S ou N)27;2GOSUB40 FIFAZ=78TH 
ENGOTOSS ELSEGOTO255 

d7o GOSUDLBS 17254 

BO GOSUB22S : 

285 TEKW=1THENKN=0:GOSUBAS :607065 ELSEGOSUB200 

290 PRINTOB9Z,“ÍQUER CONTINUAR €S ou N)2”;360SUB40 *IFAZ=78TH 


ENGOTOSGS ELSEIZ=1+1:G0SUB295  :G0TOZAS 

29% CLS:GOSUB54S  SPRINTOBZ, STRINGS(15,42);5PRINTOLS1,“XEXCLUIR 

DADOS =“: ZPRINTOZSLS, STRINGS (15,42); ERETURN 

300 GOSUB2PS 212=15G0SUBI9A  :XZZ=0PX 

305 ONXZZ6OTO3LO ,a1s 

340 GOSUB27S  =GOSUB2IO  =SIFKUN=1THENKU=S02G0TOSAS ELSEGOSUB200 

:GOTO3R20 

31 GOSUB29S  «GOSUB22o  SIFKW=1LTHENKU=0:G0TOSS ELSEGOSUB200 

320 PRINTOVAZ,CEXCLUTR (S ou N)2“=2:G0SUB40 STFAZC)BITHENGOTO6S 
ELSEGOSUNI3SS  *60TOIAS 

325 FORJI=1TONSKI=VALCRIGHTRCNOS CI), LENCNOGCI))-=145) 

330 1FICIKATHENNEX TIS J=T 

335 FORIT=1TONSIFVALCRIGHTSCTERCITI,LENCTEGCIT))-45))<)ITHENNEXT 

STzST=1 


FRI 


PARTICIPE 


COM SUA 





0 RETURN 

345 LSETNS=CHRECIPIDELSETEG="" 2] SETTG=SD$:| GETS6="“:PUTA,I 

I50 NOGC ID =SDS+STRINGS(SI3,4 DASTRECIIETEGC ATI =SDE+ANOS Ch) 2 CHDO OM 
4N,NOGCS)ECMDVOL,N, TESCS) 

395 GOSUBLOO  ZPRINTAD9Z, “QUER CONTINUAR EXCLUINDO €S ou N920226 
OSUB 40 2 TFAXA SBITHENGOTOSS ELSEGOTOSOS 

360 CLS:GOSUBS4S  SPRINTSMOZ, STRINGS(15,42); 2PRINTODLSA, CXALTERAR 
DADOS*“ ; SPRINTSZAS, STRING$( 15,42): RETURN 

365 GOSURI6O  =IZ=1:G0SLUM190 :ONOPZGOTOJA0 | ,385 

3720 PRINTOI26,“FACA SUA OPÇÃO POR UMA DAS ALTERNATIVAS ABAIXO SF” 
“PRINTO455,” À SEREM ALTERADOS: rPRINTASDE, CAD GEPRINTAGAA, CO 
DP EPRINTOZAO, CO) FIPRINTOZ7/4, CADU ESPRINTOGUB, LINHA A SER ALT 
ERADA? ))> (<< 

370 CA=1L:PA=9I4:TA=1200SUNAPO  FKKSVALCUD) E TEKKSLORKKZ4ATHENGOTOS 
720 ELSERETURN 

JB0 GOSUBIGO :GOSUB2I0 | =G0TOGPD 

385 GOSUBI40 :GOSUB22S 

390 GOSUBIGO =IFKU=1THENKN=D:60T0440 ELSEGOSUB200 

395 GOSUBI70  :Cu=2:0NKKGOSUB4ADO ,410 ,420 ,430 “6070440 

400 PA=599:CA=2:TA=14:G0SUBSRO  INOS=WS 

405 LSETNS=NOS:GOSUBI2S  INOSCI)=LEFTSCNS,I4)+STRECIDETESCITI=TS 
+NOB(CJ) ECMDYOC,N,NOGCS)2CMDCOM,N, TESCL) PUTA, TZIRETURN 

410 TZ=20:PZ=663:G0SUB420 zENS=WG 

4415 LSETES=ENSEPUTS, IZIRETURN 

420 TZ=1:PZ=727:608UB420 JTES=4S 

425 LSETTE=TES:GOSUBILS  ITEGCIT)I=TES+NOS CI) ECMDOOC,N, TESCÍ)SPUT 
ft, IXIRETURN 

430 TZ=B:PZ=791:G0SUB420 JSAG=US 

435 LSETSS=SASSPUTA, IXIRETURN 

440 GOSUBLDOO ZPRINTOB97,“ QUER CONTINUAR (5 ou N)727;5GOSUB40 
:IFAZ=78THENGOTO6S ELSEGOTOIAS 

445 STZ=PEEK (14312) AND240 

450 IFSTZ<)48BTHENPRINTAS9Z, >) IMPRESSORA NÃO DISPONTVEL”s = GOSUBY 
5 2607065 

455 CLS:GOSUB5A4S  SPRINTOB97,7))IMPRIMINDO”; 

460 LPRINTTAB(6)“LISTAGEM DE PRODUTOS CONGELADOS EMITIDA EM “;DA 
GILPRINT 

463 LPRINTTAB(S)“PRODUTO?; TAB(23)" DESCRICAO”; TABCALICGAVETAS; TAB 
CSD)“DATA” ; TAB(SB)“REBYILPRINT 

AZO FORI=ÍTON 

473 IFLEFTSCNOSCI), 1)=CHR$(491)THENGOTO495 

480 K=VAL(RIGHTE(NOS(I), LENCNOSG(1))-14))2GETA,K 

485 LPRINTCHR$SC255); TAB CIINS;TABCILPDEG;TABCAI)THETABCAD)SHGILPRI 
NT USINGHHHHHO sKsSLPRINTTAB(C69)CHRECZSS) 

490 NEXTI 

495 LPRINTESLPRINTELPRINTTAB CO) “GAVETAS; TABCL1)“PRODUTOSGTAD(27)7 
DESCRICAO”; TAB(CAB)I“DATA” SFORI=1TOZE6CL)=D:NEXTELPRINT 

500 FORI=1TON 

505 IFLEFTSCTESCI),4)=CHR$C491)THENSOO 

S10 K=VAL(CRIGHTE(TESC TI), LENCTEGCI))-15))2GETA,K 

515 LPRINTTABC2)TS;TABCOINHETABCZA ES; TABC4S)SGETASVALCTE) OC TA) 
=6(T%)+1 

320 NEXTI 

325 FORI=STOSELPRINTELPRINTTABCO)STRINGSC6, 0); TABCA)ISTRINGS CIA 
«IS STRINGSC2O,. Ds TAB(46)STRINGE(B,. 7); NEXTILPRINT 

530 FORI=1TOZELPRINTOGAVETA? 5154727 ;6(1),2NEXT 

5395 LPRINTEILPRINTEGOTOSS 

540 CLOSE:END 

545 PRINTOP6L,DHS;EPRINTOS UPS; 

3550 FORIC=0TOPSOSTEPSASPRINTIIC, SDS; :NEXTIC 

595 FORIC=959TOAISTEP-64:PRINTOIC,SDS;INEXTICS 

360 FORIC=126T0127:SET(IC,472):NEXTICEFORJ=45T047:SET(127, J)ESETC 
126, JS): NEXTJ 

56% RETURN 

570 PRINTABI, STRINDS(26,42);:PRINTSL4Z,KCADASTRO DE CONGELADO 
SH”s 

575 PRINTOZALS, STRINGH(26,42); 

580 PRINTO3IG,“(4) > CADASTRAR PRODUTOS”; 

505 PRINTOIGA+LB,7(2) > CONSULTAR CADASTRO”; 

590 PRINTO4M4B+1B,7(0) > EXCLUIR DADOS”; 

595 PRINTOSL2+18,704) > ALTERAR DADOS”; 

600 PRINTOS/6+18,7(5) ) LISTAGEM”; 

605 PRINTO640+18,7(6) > FIM DO PROCESSAMENTO”; 

610 PRINTOZ72,7)))0PTE POR UMA DAS ALTERNATIVAS ACIMA 25) («< 
4 

615 RETURN 

820 Wb="“2WZ=02CR$=CHR$CÍIL)PSG=7," 

625 PRINTOPZAWA, STRINGSCTZ-WA, O. Is 

6390 PRINTIPZ+AWA, CR$; IFORY=1TOZS2YS=INKEYGETFYSC)"CTHENGIS  ELSEN 
EXTY:PRINTOPZ+WZ, PSB; IFORY=1TODSLYE=INKEYSEIFYSC DC THENGIS ELSE 
NEXTY:6070630 

633 IFYG=CHR$E(24) THENS20 

640 IFYS=CHR$(1I)THENPRINTOPZAHWZ, STRINGS CTZ-UZ O 3; RETURN 

645 IFYS=CHRECB)ANDUZIOTHENPRINTAPZAWZ, CHRECE) E UZ=WA-A E NG=LEF TO 
UG, WA) FCRE=CHR$CLIL)POG=","260TOG2S 

630 IFWA=TZTHENSIOU 

653 IFCL=1ANDCYSCCDORYG) 9) THENSIO 

660 [FCZ=2AND(YSC” “ORYG) 2") THENGIO 

665 PRINTOAPZAUZ, Yb; =: WE=UG+YGIUZ=UZ+A E LEWZ=TATHENCRE=" “IPS6=" 5 
6070630 ELSE625 


MICRO SISTEMAS é feita para você. Escreva-nos contando suas 
experiências com seu micro, qual sua área de interesse, o que você quer 
ver publicado e o que você acha de MS. 

E lembre-se: todo leitor que nos escreve concorre automaticamente a uma 
assinatura anual de MICRO SISTEMAS. 


Mande logo sua opinião para a REDAÇÃO de MICRO SISTEMAS: 


OPINIÃO 


Rio de Janeiro - Av. Presidente Wilson, 165/grupo 1210, RJ, CEP 20030 
São Paulo - R. Oliveira Dias, 153, Jardim Paulista, SP, CEP 01433 
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Controle de conta bancária 


Sílvio Elsio Donato 


Este programa, para os micros da 
linha Sinclair ou compatíveis com no 
mínimo 16 Kb, destina-se ao controle 
pessoal de conta-corrente, arquivando 
lançamentos e depois apresentando: os 
em forma de extratos. 

O programa possui quatro opções: 
lançamentos — onde o programa pede os 
dados necessários para a formação de 
extratos; extratos — que são exibidos 
de acordo com os lançamentos; iniciali- 
zação — que dimensiona o arquivo, de- 
vendo ser utilizada uma só vez e grava- 
ção — que transfere para a fita todos os 
lançamentos para um posterior acesso 
pela opção 2. 

A operação do programa é muito 
simples. Logo que carregado, ele já exi- 
be as opções descritas acima. Se o pro- 
grama vai ser utilizado pela primeira 
vez, deve-se pressionar a tecla 3, que 
equivale a função de início do arquivo. 
Note que, por medida de segurança, o 
programa pede que esta opção seja con- 
firmada. Isto se deve ao fato de que 
uma vez ativada a função de iniciali- 
zação, todas as variáveis, se já existen- 
tes e preenchidas, são zeradas e redi- 
mensionadas, perdendo-se, então, todo 
o arquivo. O mesmo acontece com a te- 
cla RUN. Portanto, só utilize estas duas 
teclas para o caso de se estar usando o 
programa pela primeira vez. 

Se o programa já possui lançamentos 
quando carregado, e você deseja incluir 
mais lançamentos basta optar por 1 
que ele localiza o último lançamento 
e fica pronto para receber outro em se- 
guida. 

A opção 1 pede dados na seguinte 
ordem: dia, mês, histórico e valor. Ob- 
serve que é exatamente o essencial para 
se ter um bom controle da conta-corren- 
te. Para cada histórico foram reserva- 
dos 15 caracteres, de modo que se pos- 
sa especificar a origem do débito ou cré- 


56 


dito. Quando se entra com o valor, sem 
os centavos, o programa pergunta se é 
débito (D) ou crédito (C). Respondida 
esta pergunta, ele imprime na tela o va- 
lor, com sinal negativo caso seja um dé- 
bito. Em seguida surge a mensagem de 
confirmação para que o lançamento 
seja conferido. Em caso positivo, o sal- 
do é atualizado. Se não confirmado, o 
lançamento é apagado, as variáveis por 
ele ocupadas são zeradas e novamente 
surge a mensagem pedindo para entrar 
com o dia, mês e assim por diante. 

Cada vez que o lançamento é confir- 
mado e o saldo é corrigido de acordo 
com ele, o programa pede automatica- 
mente outro lançamento através da per- 
gunta: “Dia?”. Para poder sair da op- 
ção lançamentos, basta responder “0”, 
e então, o programa volta ao menu ini- 
cial. 

A opção 2 (extratos) pede pelo nú- 
mero do extrato desejado. Esse número 
vai de 1 a 8 no programa original, mas 
o arquivo tem capacidade para 96 lan- 
çamentos. Porém, nada impede que esta 
capacidade seja aumentada, fazendo-se 
necessário observar apenas a memória 
disponível e a velocidade de acesso aos 
dados de um arquivo maior. Logicamen- 
te, para esse fim deve-se alterar a estru- 
tura original do programa. 

Uma vez fornecido o extrato dese- 
jado, surge a mensagem “Outro extra- 
to (S/N)?”. Em caso de resposta positi- 
va. o programa pede o número do extra- 
to, caso contrário, novamente aparece 
o menu inicial, Cada extrato comporta 
12 lançamentos. 

Depois de feitos todos os lançamen- 
tos desejados, basta pressionar a tecla 
4, gravação, e transferir, desse modo, o 
programa e os dados para uma fita cas- 
sete. 

Por ocasião de consulta posterior, ou 
seja, do carregamento do programa com 


dados já arquivados, não é necessário 
pressionar a tecla RUN, pois o programa 
já sai rodando. 

Este programa possui ótima formata- 
ção de tela e é esteticamente bem apre- 
sentado. Entretanto, deve-se ter muita 
atenção ao digitá-lo, pois certas linhas 
possuem fórmulas variáveis usadas nas 
a de impressão de dados na 
tela. 


Sílvio Elsio Donato é formado em desenho 
arquitetônico e trabalha, no momento, como 
bancário. 


S LET B5=", 
10 PRINT AT 2,0; “TT 
15 PRINT AT 19,0, "“TETT— 
20 GOSUB SOVO 


es PRINT AT 1,0;8% 
[90 PRINT AT 1,8;"CONTA BANCRRI 


A 
na” PRINT AT 7,8;"1 - LANCRMENT 


40 PRINT AT 9,58;“2 - EXTRATOS! 
E AT 11,8;"3 - INICIALI 
| S2 PRINT AT 153,8;"4 - GRAVACAO 


55 PRINT 1,8,5% 


AT 
Bo LET Og= INREVS 
“ OR 0$>"4" THEN GO 


ET O=VAL Og 

o GOTO O+1000 
1200 GOSUB SOMA 
1005 PRINT AT 1,0; 55 
1010 PRINT AT à, B;' "LANCAMENTO 
1013 LET 5=0 
1020 PRINT AT 3,0; "DATA"; AT 3,11 
Das dose ando + 'DEB/CRED" 


TO 96 


I=13 OR 1=25 OR 1=37 OR' 
pd OR 1I=73 OR 1=85 THE 


; Bg 
1045 PRINT AT 21.B; "DIA ? 
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-— Que as decisões são rápidas E 05 segundos 
DreCIosOs. 
seu computador não pode parar por falta de 
Formulários, Suprimentos E Acessórios. 

Você precisa de um atendimento seguro, de 
quem conhece o assunto. Por 1550, estamos 
lnçandho amais completa rede de Lojas de Informática do pais: o COMPUTER SHOPPING MOORE. 
Você terá Atendimento Imediato, Pronta Entrega, Ótima Variedade e Preço Justo do que 
precisar e na quantidade desejada. 

Anote 05 novos endereços que vão solucionar suas necessidades emergenciass. 

As Lojas de Informática do Computer Shopping Moore são ágeis, eficientes é garantidas pelo 

nome Moore. 

E falam à mesma linguagem que você. 


COMPUTER 
SHOPPING 
MOORE 

Belo Horizonte Fl: 1031) 3448.4933 + Blumenau" 

Fel: (0473) 23/0333 * Campinas - Tel. (0197) SP MMA 

* Curitiõa - Tel: (041) 024 5861 e Manaus" 

Tel. (099) 934,0607 * Porto Alegre EP 
FEL; (0512) 34.634 e Reco - Tel: (081) 001 030) 3 
a fo de Janeiro - Tel.: (021) 5900144 Ú 

» Sabador « Tel (071) 944.440 + São Paulo s ” 
Fel: BR 3316 ad 

















* Entrepostos 


formulários « diskettes * discos » fitas magnéticas * fitas impressoras * móveis * fragmentadoras * etiquetas » equip. de segurança 








CONTROLE CONTA BANCÁRIA 











1250 INPUT £ LT) . . . . . . . 
1055 IF GLIIcB OR DiII:31 THEN G BOES PRINT AT 3,0; Bare: AT 3,41 ARQUTÇOS sinclair sinclair sinclair sinc 
DTO 1050 PºHIST.UJAT 3,83; “DEB/CRED 2048 FAUSE EO 

1060 IF DlI!=0 THEN GOBUE SO9D 2010 PRINT AT 21,0: "NA “LO ExXTRAT J0S0 DIM Diva: 

ARDS IF Dtit=0 THEN GOTO E a seia 0 DIM HIiISã) 

1070 PRINT AT LeL,Q, CAI) 2032 INPUT E 0580 DIM HS(96, 15) 

17 PRINT AT IsL,B)"os” EQLO IP Eri OR Es8 THEN GOTÓ 205 065 DIM UiG6) 

lBED PRINT &T 21,0; “MES S = JATO LET E=p 

1BBS INPUT MiTI vas FOIHMT ET 21,0D.,BS 4075 GOSUE SODA 

1090 IF MHitiisvd DÊ Mitj LE THEN 2080 PRINT &T Pi,D, "EXTRATO NE | 080 GOTO E 

GOTO Il7ES E “080 SAVE BANCOS 

1025 PRINT ET JsL,3.MiT) 2008 LET LatidEÊ=1i412])ri=2h1 044 “005 GOTO 5 

1100 FRINT ET 21,8:“HIST 2060 LET Z=11E-=1L]*127+41 5220 FOR E=3 TO 16 

11853 INPUT MELII. 20ES FDR d=1 TO x-1 SDOS PRINT AT B,0.E5 

+.l0 FRINT &T I+L,6.HSiT) EB” LET Gesd+4 bd) s010 NHEXT E 

1115 PRINT AT Pi,O, “VALOR 2075 MEXT 50153 RETUEN 

Li1E0 INEUT dito oco FOR Ilax TO X+11 SODA FOR Ini TÔOSOEB 

112% PRINT AT 2L,D, “DEBICI GU CR EDSs PRINT AT I+*L.O.DiT) C2oOS IF Pilisê THEN GOTO EDR0 

EDLC)S EO2 IP DLI!=A THEM GOTA EpOo 010 Ra e BR 

ASS CET ORA, es vii Ee CEDO eo ME SeLOS OMS ai camg 

he ein Ga = TH MN LET Idi = I od! + atos e Th = a E pe z 

ETs E | 2100 LET Es=ITÊS So GBES LET Sel EM Zs Sérgio Ramalho Rezende 

liso IF Oss THEN GOTO 1188 ELOS LET EsLEN ZE . Guz PRINT AT 18,11. “SALDO - 

ED e Lip A HEN GOTO 1155. =110 Ep AT Tab .31-2) WI nao FREE ar 18,29-2,5 

+ À DE É "E MES 2118 EL dn aldi Ti Dal =] 

GUTO siso E 2120 LET =5=5TRS - sas LF C=i THEM ET L=d 

so Cro FRcên é EEE: GIBE LET EMLEN ES, saso Pr EE E TURN 

dad LÊ a. Ei Es 213 =" "AT 142.15 o = | 

1165 ERINT ET LP IT] a q Vs, - - BEGE LET L=tiXi e (-1) 612) 4d 

1170 PRINT &T 21; OSPCONFIENA LE Elas ta AT e 11, "SALDO - qr ER EuIAadRi sa 

Ê Elty RS! di sb. e7=2.5 A, mo F=y am 

1175 LET OS=INKEYE Ei4S MEXT 1 EO7S LET ZMESTÃS UIk) 

1igó IF 0$="5" THEN GOTO iRos 2180 PRINT AT 21,0,E BOsA LET ZzLEN 2: inali ditá. z A 

110 IF Ds="5" TnêN Goro isos EE OM AO Rida ata o A E | A finalidade deste pequeno utilitá dade de gravação. Se não for digi ria, pois causaria a perda do controle do 
1186 IF 08,,'= 0B:5"N” THEN AD Per dt ED fer ao UR a O eo 6 A rio é produzir cópia de segurança de tado um dos dois comandos o sis- sistema em alguns casos. 

GOTO 1475 Z. 8 LEI SEsSINBETS da REI pas dmg MI - > te é : : 

1105 PRINT AT I+L Dies Bia dl g8= e. THEM Goró poa 209º FETURN qualquer programa em linguagem de má- tema assumirá a mesma velocidade O Copysoft foi desenvolvido em um 
1 GOTO Lo Eird d EM HE GO E Wo E a! é E P r 

jãos LET SEE SUA) Eile IP 08:03) OR DEZ: CN” THEN cao For B=s ro a quina que se encontre protegido. Po- de leitura. Prepare o gravador e  TK 85 dotado de high speed. Para aque- 
Ely LET ZEa E E CUT Z1BB f ar ;iÉ! , 7 E x 

jsis LET JalEM 2 S000 FRINT RT 41,8; “CONFIRMA INI joio UEM E de-se dizer que valem os mesmos comen- digite G. Terminada a gravação, o les que possuem essa função gravada em 
= = NT & 18,46 CIALIZAÇÃO lSomM) % É E Lp, E 2. , , g a é 
ia pa : 3 5005 LET Oss iNhErS À 7085 LET Le À bd didi tários empregados para o programa sistema aguardará um comando, fita pode ser feita a seguinte modifica- 
der E RIiNT AT 18,29=-2,5 SE] hi lã= 5 HEM GOTO 3035 des E Ea 1 É 1 InICci 

isso NEXT É: 3018 IE Dã= no THEN GOTO s00s auao ERINT AT Ie B:BE Copsys, publicado no número 29 de MS, que poderá ser L para leitura e ção antes da gravação inicial do Copy- 
ni Wit S “ = FR QOEt>"MNO THEN - à 1 |] , 

2000 GOSUE soda GOTO 00 a : exceto que aquele era para a linha TRS» consequente gravação de outro soft: ! 
ão! E ER é E pi oie EE Goto TetT dies ES 80 e este é para Sinclair. Vamos à digi- programa, G Pp Frei outra vez  POKE 16614, GR — (INT (GR / 256) * 
, — Ri 1 i a E a Ê fm , ' 

ZOO FRINT AT 1,8; "EXTRATOS J040 PRINT AT 3,5: "DIMENSIONANDO E tação: 0 programa, ou para mudar d 256) 


POKE 16615, INT (GR / 256) 
POKE 16633, LT — (INT (LT / 256)" 


tea 1 - Carregue da fita o Micro Bug. 
2 — De dentro do Micro Bug crie com 


velocidade de leitura/gravação, R 
para dar um RESET geral (o mes- 


Con role de conta danado 


A Ti-Produção 


1d sd LS e ua e oi 


Micro 
Fichas 


DARDO DIDO 
DOSH 
DrOODO LO 
CANOA 1 
tada] 
DO TO! 
DCD RIO 
DOOM 1] 
END CIO 
CORDA CH 
DOOOLOLO 
0001011 
DMD LO 
DMA E OI 
OO TO 
DOC 114 
0010000 
DOG LD À 
no sadTo 
CPA] 
DOOLOLDO 
0201010] 
GOOD 
OQUE 
GOO LO 
DOT LO] 
DOOLLOLO 
OO TOA 
CHA LAH 
DOOM LO] 
DOLL TO 
Doi] 
DOT OO 
Do LOC! 
COLADO LO 
DOLHOOLI 
00400] DE 


2h 
ZH 
2 
Zn 
ZE 
2F 
10 
1 
12 
43 
14 
15 
16 
E 
14 
19 
JA 
18 
(Ta 
10 
E 
1 
1) 
ai 
qa 
41 
qq 
45 
46 
47 
46 
ay 


GOLOOLO 
DOIOO LO 
00100111 
Hb LO LOC 
00101001 
DOLGLOLO 
DOLOIDLA 
Dotolon 
DOLD10 
DOLOIILTO 
MOLGIILL 
SO DO O 
poa] 
ENO E HO DO 
ENA TORA À 
MOI LOL0O 
Goi010) 
DOITOLTO 
Qdo 
os À La 
DOT 
DOI NLoLO 
DOLLHO 
[8111200 
ODTLLLG] 
OOLILIO 
DOLLIA 
O LANCHA 
OLD] 
DEEDDD TO 
DLMODOL 
DpOOO A 
O LORO TOA 
OLE LO 
OLD LAI 
DILDDLODO 
OLD OL 


OLGOU LO 
DIGO LI 
GUGA DO 
0100710] 
DLODLI LO 
01001111 
OLOLHODO 
DIO TOOL 
DIOLNDÃO 
CLORO] 
DLOLDI TA 
DLOLOLHA 
DIoLOLLA 
BLOLOTTA 
ELE LORMI 
BLOOD 
GLOLLOLO 
OLA LOL] 
PRTB] 
Bot LLos 
GIBI TA 
DIOLEIII 
Di GOD 
Gi LDDDD 
Ed LOCO 1h 
01100011 
DIGO TCS 
OLLGOLO) 
DILGOLLO 
01100141] 
O LI DC 
0110100] 
DA LOLA LO 
014101011 
1404 100 
01101101 
DLL S A 


QLIQILIA 
D110000 
01110001 
BitidoLm 
Ciiogoll 
DELLO 
giga! 
DELIDEA 
qi 
RR ia 
DL! 
DLLILÓLA 
D1112011 
DILLILO 
1114401 
PRB RAT 
2111! 
Luis GE 
DDD | 
LOBO TO 
TODO À 
J0000100 
10000101 
LODOD)O 
100001 11 
LOM LDA 
LOL] 
LO0ÓLÓLO 
LOGO TO 
1900170 
10001101 
LOOGA TIO 
LODOLIS 
SOULDONO 
LDO] 
LODIDDLO 
FÓNILOLL 


LOGIOOO 
100L0L01 
LODLOIO 
100720111 
LEG) 000 
1001 200] 
10011020 
TETE 
10041100 
101116] 
10011140 
1001111 
LOC 
LÓ1DDN0) 
VOO 
LO TENDO] À 
10100100 
JOTA 
JOLDOL IO 
LOLODI TI 
JOLOLODO 
LO LO LO 
LolOLOIO 
10101011 
10101100 
LOLOLLO 
IOLOLITO 
LOLOLILI 
OLD Ca pet) 
LEI IDO 
103 LOD1O 
10110011 
LOLLOLDO 
01010) 
JOL0OLO 
LOL] 
LOLITA 


BROSQRARAFINCaSESRRES 


Ega 


LOLILODI 
LOLLIOIO 
18111011 
Lo111100 
HOLILLO 
LOJ1I 0 
LO11414111 
1 LDIDDO 
1LODDDOL 
NoMaLO 
1300 
LOLA 
11000101 
11000110 
LAGO] E 
11001000 
LIGO LO) 
LIDO DI0 
11001011 
11001 100 
11001101 
LIGO TO 
E1001111 
LLDI QI) 
LIDLGOn] 
LIDIGOLO 
LIDIDOLI 
LG LOLOM 
1Lo10101 
LEGLOL LO 
11010111 
1LOLLODO 
E LOLTOD] 
1LDLOLO 
110124011 
1101 1100 
11011101 


BZERR 


a 5 
Fi 


JADA9333SI3ZSNSSARRNSENHNEE 


LiO41110 
110114111 
LELEO 
Li 10000] 
LOGO LO 
11100011 
Li LOOIL DO 
11100101 
LLOÓLLO 
11100111 
11101090 
LOLA 
11101010 
11101011 
LILOLIDO 
1110110] 
INTO 
ALGAAIA 
11110000 
ALigõoL 
JLIGOÃO 
LLTDOLA 
JLIGADO 
11110401 
MIOLO 
JL 
Wtitogo 
RR Ra] 
11111010 
11111011 
LIJILIDO 
11111101 
LIiLito 
HI 





o comando E uma linha O REM 
com 123 bytes (E 0, 8 123 .x), 


3 — Digite M 4082 e entre com o bloco 


Assembler, 

4 — Retorne ao BASIC (comando B). 

5 — Digite a listagem BASIC. 

6 - Prepare-se para gravar e digite 
RUN 60. 
OBS.: — Para gravar em high speed 
mude a linha 60 para 60 RAND 
USR 8405. Para utilização siga estas 
instruções: 

1 — digite POKE 16389, 127, 

2 — digite NEW; 

3 — carregue o Copysoft da fita; 

4 — após rodar o programa digite qual- 


quer tecla que ele mesmo se encar- 
regará de posicionar a rotina prin- 
cipal (que ocupa apenas 81 bytes) 
acima da RAMTOP, que ele mes- 
mo cria; 

5 — digite RAND USR 32687; 

6 — para ler um programa da fita digi- 
te L. Antes, porém, digite 1 ou 2, 
para determinar se o programa está 
em velocidade normal (isto se o 
programa que você quer ler foi 
gravado com o comando SAVE) 
ou high speed, respectivamente; 

7 — terminada a leitura, a tela perma- 
necerá escura à espera de um co- 
mando, Então, para tirarmos uma 
cópia do programa que se encon- 
tra na memória deve-se digitar 1 
ou 2, visando determinar a veloci- 
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mo que RAND USR 0). 


OBSERVAÇÕES IMPORTANTES 


Após ser mandado para o topo da 
RAM o programa ocupará apenas 81 by- 
tes, o que significa que programas com 
até 16303 bytes, aproximadamente, po- 
derão ser copiados com esse sistema. 

A tecla BREAK não deve ser utiliza- 
da se houver algum programa na memó- 


> A PES 3 fra 
TU SA 


cm 
IUNES O) 
RISE: 
TM Meda 4 
oo PTE 2 TES Cu PA 
E TEA 4 Ee a = A 

Ju 


NAM 
Mem 
1 TT =) prt) = 
ET 
ana 


Lo e 
Eu pero pu fo pus Jus hua fa 


ED eU SJ CE TG DD E Tm EM 
pes TE e TE e af da 


Te Ee as TE E TA CITA TT t-= Ea ga 


ER po po ts peça fu pa tá qu ua 
EDS 3 EM TT T+ Tia fa p= dum 


Pete e De TE fo es rea fra fe 


] 
Luas 


a 
õ 
o 
2 
s 
E: 
c 
[o 
E 
= 
B 


ETA pe es TETE e E A o E IO JU = tod ud 
2 rp Tc PT) pondo a PT) Et qe qe PERO] 


Cd ES SGD =] =) QU Canoa 


er çãe Te Te OT Ore Te OT CT Ee Tr 
MEDE Dede A O MM CR Cp 


PePppptapepápo papo topo papo 


Pos Ea 
Rian 


Bloco Assembler 


L2HPRINT AT &,0. “COPY SOFT Má 
CRO SISTEMAS 1684" 
20 PRINT AT 53,0; "COMANDOS, 
R - RESET" PL - LEITURA! "CG - 
GRAUAÇÃO 14 "VELOCIDRDE ME. 
NORMAL" ,, 2 - HIGH. SPEEC' 
20,0. "PARA RODAR 
RIGITE”,"PRAND USAR 32687." 
o IF “INKEVS="" THEN GOTO 40 
FAND USR 18537 
ZAUE “COPY 
Ru 


3" PRI NT AT 





Listagem BASIC 





256) 
POKE 16634, INT (LT / 256) 

onde: — GR é o endereço inicial da 

gravação em high speed); 
— LT é o endereço inicial da 
leitura em high speed. 

A orientação serve também para 
aqueles que possuem um CP-200 speed. 
No primeiro caso, o Copysoft pode ser 
colocado em qualquer outra parte da 
RAM, já que ele não tem nenhum JUMP 
absoluto nem CALL sobre si mesmo, 
Deve-se fazer apenas uma modificação 
na rotina que o coloca na RAMTOP e 
que começa no endereço 16537. Para 
aqueles que não possuem high speed, 
eis as instruções: 

POKE 16607, 0 
POKE 16606, O 
POKE 16623, 0 
POKE 16624, 0 

Como orientação final, sugerimos 
que o interessado faça um teste do Co- 
pysoft com programas comerciais. Se al- 
po estiver obscuro, acreditamos que com 
a digitação poderá ser esclarecido, bem 
como a idéia do utilitário. 


E 
me 


Sérgio Ramalho Resende tem 18 anos, con- 
cluiu em 1984 o Segundo Grau no Colégio 
Marista Dom Silvério, de Belo Horizonte, e se 
prepara para tentar o vestibular no ITA, onde 
pretende fazer Engenharia Eletrônica. Possui 
um TK 85 há um ano, é autodidata em ele- 
trônica e computação, dominando as lingua- 
gens BASIC e Assembler. 
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sinclair sinclair sinclair sinc 


AGORA É MAIS FÁCIL ASSINAR 




















ISTROS SN RE 
iss EA 1750 INPUT us 
420 Soto Sa 400" + (INKEY$="50) iz7o IF 4$="5" THEN GOTO VAL “is 
a GOsus URL Ness *PURk MA 1780 PRINT “ALTERAR CEP.BRIRRO.C Micro 
DE SR O cs cdaua Áncia 1>ã6 INPUT JE Sist 
818 FRINT AT 21,0; "NOVO REGISTR 1506 ee E = PR A emas 
Se) GO JR so ( ="5"1 Edhed ad - a E é 
sUAL “lo «IN Si Ev se" Nº SUAS 42" RS ERR agaA a ESA FONES? Son" 
ESQ GOTO VAL “D>o" 1530 IF J$="5" THEN GOTO VAL "15 
550 LET M=k-L,. oo NTE un ABA Para sua maior comodidade, 
E30 FOR I=1 TON 1834 PRINT THE 25; a ATI Editora Ltda. 
500 FAND USE isSia 1840 INPUT Es A do 
po ELO NEXT T à 1550 LET K5iK11=BS coloca à sua disposição 
SO RETURN 1360 GCOSUB UAL “2040” H 
A | be o I l 700 CEM JRRER 1570 GOTO VAL "1750" os seguintes endereços 
qu y, O a e a 7OS PRINT "RGUARDE RR eRo é veado ici de seus representantes autorizados: 
710 LET K=k+1 1590 INPUT Es : 
re0 IF K+>=125 THEN GOTO VAL “75 1900 LET L$1K11=B$ 
1 f LO GOSUE VAL "2040" 
Márcio Fontenelle Vianna PAR DO GTA aU ogaeor 
L "280" amado fd 1530 PRINT TRE 321;«<' RIO DE JANEIRO 
740 GOTO VAL “7 + PL 
o Co ML 7a0 1559 LET Msiki! ses ATI Editora Ltda. 
750 PRINT “ARGUIVO ESGOTADO” 250 COSUB VAL "2040" Av. Presidente Wilson, 165 — Gr. 1210 
"70 FO = o a! GOTO a 8 3 : 
e À 580 NEXT 7. |O 100 1550 PRINT TRE do too CEP 20030 — Tels.: (021) 262-5259 
O programa tem como finalidade o <I> Início — Digitando 7 o micro | gravá-lo em fita, Dê o comando GOTO 790 GOTO VAL “8” Po AR IR | A 
manuseio prático de um arquivo-agenda apresenta na tela sempre o primeiro re- 3070, prepare a fita, ligue o gravador e 508 Crs 010 GOSUB VAL “adam” SÃO PAULO 
para nome, endereço, CEP, bairro, cida- | gistro em arquivo. aperte NEW LINE. Depois é só esperar O PRINT CRE ORLEGR O. ditos eram CRANF CONFIRDE ALTERADAOS ATI Editora Ltda. 
de, Estado e telefone de pessoas físicas Seleção de Nome — Seleciona no ví. o término da gravação (mais ou menos Wo LE APRENTEC,“CRSRETORNO”, "TDT SUAL "oBoa Vo INREVSSCNNTSVAL “Ss Rua Oliveira Dias, 153 
ou jurídicas. Desenvolvido segundo a ca-  deo o nome e seus dados complementa- 6,5 minutos) e pronto. O programa já Da PRA “q e Gare dd CEP 01433 — Tels.: (011) 853-3800 
racterística modular, na qual as instru- res, bastando para isso digitar o' pode ser utilizado, arquivando a sua CSge IF V=1 THEN ÓOTO VAL “1330" oco RETUEN. BELO HORIZONTE 
ções que objetivam a mesma função for- nome que se quer consultar, atentando agenda, SO PRINT RT Ei do viene A Ses BBso CLS Maria Fernanda G. Andrade 
mam rotinas altamente independentes, para o delimitador de campo. Apresenta “São impor ES ME Ru A pes id Caixa Postal 1687 Tel.: (031) 335-66-45 
ele é, por isso, bastante flexível a modi- também na parte superior da tela ome- —>>>>>>>>>>>>—>—>— 950 LET K=PI-PI A SR CR k : 
ficações e possíveis ampliações. nu secundário descrito na rotina ante- Márcio Fontenelle Vianna é engenheiro ele- gar + MEM ENO THEN GOTA ANAL 2562 PRINT "CONFIRMA EXCLUSAO? 5 
Quanto à sua operação, odemos di- rior tricista formado pela IPUC — Universidade 550 PRINT AT S,0; "RGUARDE” A anti sie Eis Read PORTO ALEGRE 
peração, p R lecão de telef M funcã Católica de Minas Gerais. Trabalha na CBTU, GO LET RO o sn o ci A 2Ssá GOTO VAL "2564" +(INKEV8=US" Mrore Asessocia Esnpiiiariál Lia: 
zer que é muito fácil, em forma de diá- cleção de teletone — Mesma Iunção 4 Gerência dos Metrôs. Desenvolve softwa- EN Goto VAL “E DA SP o. axe Rua Uruguai, 35 sala 622 
logo, com menus orientando o usuário da rotina anterior, porém digitando o re para micros da linha Sinclair. gao IF B$=K$i%,1) THEN GOTO VAL SEeo E fr Rd AEE flui fado CEP 90000 — Tel.: (0512) 26-0839 
em todas as fases, Em micros com me- telefone da pessoa a quem se quer con- O RR me ; 72 PRINT “AGUARDE” 
mória de 16 kb é possível arquivar até  sultar. BEM Ioão PRINT AT S.DIKp te Su Pr RAD HEM POTE MES IEA 
e. 1 e eTn ITONE 183 NT K$1K) ; 
TOS -megintros. Namunles qua possuem. Aiivenaçã asd cria A É REM BaBGroo atenda os ANA 1940 PRINT LSIK) Roso LET Me Rai sense) 
memória de 48 kb podem ser armaze- tela: | EM Jul Bá 1050 PRINT NSiki e. e 2600 LET NE(KIV=NS(KIA) 
grs pro de 400. radê e Ei Cc máxima de registros — PA id INSEY$="" THEN GOTO VAL 2820 LET Kiski+d ey “oa do 
s rotinas principais do programa ; o: 1080 LET WS=INKEYS : ROSA dE NORA FÃ) = GOTO U 
são: O) número de registros ocupados; 27 PRINT “h ARQUIVO AGEND ARE us Êo Ri nao Pr: ANO 26.0 BOTO VAL. "as7s", INSTITUTO DE 
Entrada de dados — Permite a intro- e número de registros vazios; 30 PRINT” E SE THEN GOTO vai Jiaror 2ose LET eis TECNOLOGIA ORT 
dução dos vários registros utilizando a e data da última gravação. SR as E s E Mi TE jido Goto vAL iloor- (us=ra") sur 2670 ESTO vaL "5 CESTA O DE TN 
indicação de delimitação de campo e Gravação arquivo — Através desta ro- E CERAVA RRQUÍVOM: “.65 INFORMACÕ TRA AUAL 0áDes (UG="ROI SUAL "AD" O ae a ci Sa Ac 
m de máqui- tj - ES. a a 110 REGISTROS":TAB 24;"ios" >>>» 
baia Scroll em Mnguago q rena ção à gravação Ki arquivo: em 31 PRINT AT 15,0;h 06 SF RATO ÉJaM “ OR Kradôs TH B546 PRINT REGISTROS OCUPADOS" PROGRAMAS DE TREINAMENTO 
k ? : : IF INKEY$="" THEN GOTO UAL E El baia os a DR Ri Uia ico cida da reinar fo E SAR IE TAS 
Alteração de dados — Possibilita a Impressão Arquivo — Rotina não im- A Sr à SE VER 1190 GOTO VAL "1910 SE GE, MEBLSTRUS MRELOS TE ÁREA DE MICROINFORMÁTICA 
= dE A é 115 - (= 2850 PRINT "ULTIMA ENTRADA"; TRE 
alteração ou correção de qualquer um plementada no programa, THEN GOTO VAL “32 cd GOTO, CURE O api e 24:08 a As epa nd PARA USUÁRIOS 
dos registros nome, endereço, CEP, bair- dé LET Us=INKEYS oa o 2870 IF INKEYS="" THEN GOTO VAL (INTRODUÇÃO A PD, VISICALC/ 
ro, cidade, Estado e telefone. A FORMA DE DIGITAÇÃO 40 GUTO VEL, né0r+ (Uta to aUR, 1100 Sl eiiaa 10 SO GOTO VAL “8" dBASE NL BASIO) 
gs o “BB0O "+ ="2") 4 “12600 e: A, poda = RE : % , 
Exclusão de dados — Elimina quais- "5 sUAL Ciásdrs ius="a") suaL “lo 1305 CLS Revo REU 
ds : + U4G="5") SUAL “1560! + (Ug=" ; 1510 LET Y=1 0. 203 a NT “ENTRE COM Q D , PARA PROGRAMADORES E 
quer registros, renumerando todos os Antes da digitação da listagem te- "DADA" - (y="7") <UAL “S4” + SEO 1520 SOTO VAL "a10' « k É dd TNPUT ENTRE COM A DATA ANALISTAS 
outros de ordem superior ao cancelado. Feat “ISUAL “BS6L“+IUs="S"I SUAL “275 no ar ai ares o TE 4 NOM 3040 PRINT OS (INTRODUÇÃO AO MICRO, CP/M, 
TROS: QUE IOSREVES MINA MEGA IG programa 1340 INPUT ES. 3050 PRINT “TLDO Ok? S/N" BASIC SOB CP/M, WORDSTAR E 
Seleção geral — É uma rotina através para introduzir o scroll em linguagem 13550 PRINT AT 5,0; “AGUARDEV,RT & TRUNL Rg RN ui Nro Cras dBASE |) 
da qual se acessa cada um dos registros de máquina. Para isto, digite em ] uma | ; geo: pe ada E dad “a pa ben Sa REY dl + SOS NA EDUCAÇÃO 
do programa, digitando para isso à pri- linha REM com 15 caracteres quaisquer. S IF K$(1,1)=" “ THEN GOTO VA E dado RAN R AS” DP REUDOS TH SA CE q Ra (LOGQ PARA EDUCADORES E 
meira letra do nome da pessoa preten- Em seguida o programa monitor (lis- o G T 1575 JE (aê THEN ESTO VAL ' 1410" ON ENE e voe PAR? PARA 
dida. O micro apresentará no vídeo, se- tagem 2) e, através dele, o Bloco em RETA AT 21,0;"1.DIGITE GOTO uai Cidia” ED NA ME g TE ema ] 
gundo a ordem do arquivo, os dados dos  Assembler (listagem 3). Finalizada a en- A RE a di 1400 ESTO URL via7oM FORMAÇÃO PROFISSIONAL EM 
indivíduos cujos nomes se iniciam pela trada, elimine o programa monitor e ini- Retna RO Ladacio téaro Dar STIBIS: TO LEN Es! THEN Nico agi DE 
letra digitada. Dentro desta rotina, a cig a digitação do programa propriamen- 5 ERINT AT 21,0; K$(Ki ie30 GOTO ué 1350 1000 LET X=15514 
. . . o - 2 Cs Ta [= 
parte superior da tela apresenta um te dito, a partir da linha 2. PRINT AT 21,0; «DIGI 7 1210 CS 1020 POKE X,164CODE AS+CODE As(2 APERFEICOAMENTO 
menu secundário indicando as funções: Após ter entrado com a listagem do NDERECO TAB SL, ae 1550 SOTO JOL “Gi PRINT AT 21,0%: * “As PROFISSIONAL EM AMBIENTE IBM 
o e apre 310 GOSUE VAL "soa 1540 PRINT AT 11,0;/“DIGITE O TEL SCROLL 
<S> Seleção Digitando .$ o micro PEOBIINIA, Pora CAGUELAS digite direta 550 PRINT AT 21,0; Lstks EFONE LAT S1,8,;0: IF X=16528 THEN GOTO 1080 CPD-ORT: IBM 4341 
procura no arquivo o próximo registro mente sem a utilização de linhas de pro- 350 GOSUB UAL "Soo" oa SOS O adEi "1340" LET X=At COM TERMINAIS 
370 PRINT AT 21, B; , 1800 FEM SOTO 1910 & 
que se inícia pela mesma letra digitada  gramação, sempre empregando a tecla BAIRRO.CID.EST."; TAB 31;"4" ROO rd a Ud do ia CLS LABORATÓRIO DE MICROS 
inicialmente, e assim sucessivamente. NEW LINE (ENTER), as seguintes ins- 350 INPUT ME dao Ei TREINAMENTO IN HOUSE 
. 400 P RE 1700 INPUT Kã : 
<M> Menu — Digitando M ele truções: AO BOSS var regar e O 1>05 PRINT CÍ Programa Monitor EXCLUSIVO PARA EMPRESAS 
apresenta no vídeo o menu principal. DIM KSI105,28) ELEPONES AT 21.0:"4-DIGITE O Tito IF Ki-iês THEN SOTO “AL “IE ; 
<F> Frente — Digitando F o micro DIN 48105, 31) 30 INPUT N$(K) iso PRINT "ALTERAR NOME? S/N pera ll a tp iii 
mostra o registro subsequente ao sele- LET J=0, bra , PRINT BT EI GO NS(K) 1540 IP dg="5» THEM GOTO VAL “IE 
O . Ls : = 4 d õs p =UA A 4 a 
cionado anteriormente. | A COSUB VAL vEmme 17580 PRINT “BL TERA? ENDERECOS & RUA DONA MARIANA, 213 - BOTAFOGO - 
<R> Retomo— Possui função in- Após a introdução das instruções q PRINT AT 21,0; "CONFIRMA RES Bloco Assembler = RJ - TEL: 286-7842 
versa à de F. programa está completo, bastando agora 
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Usuários de micros trocando mensagens, lendo e anexando 
informações, como num grande quadro de comunicação. Essa 
é a idéia básica de um CBBS 








CBBS, um quadro 
de avisos comunitário 


Ricardo Weiss Muricy 


esde que você comprou seu mi- 

crocomputador certamente tem 

se dedicado a aprender BASIC, 

desenvolver programas, conhe- 
cer melhor a linguagem Assembler; utili- 
za-o também como ferramenta de traba- 
lho na sua atividade profissional e, even- 
tualmente, se descontrai brincando com 
jogos acirradamente disputados com as 
crianças da casa. Por isso, você que já 
leu ou ouviu o termo telecomunicações 
por microcomputador, colocou-o de la- 
do sem lhe dar muita atenção. É hora de 
mudar esse conceito e explorar essa 
nova e maravilhosa possibilidade de uso 
que o micro pessoal oferece. 

Ao adquirir seu sistema, você seguiu 
uma fórmula mais ou menos como essa: 
computador mais periféricos e progra- 
mas. Ao acrescentar a esse sistema um 
modem e uma placa de circuito impres- 
so chamada R$ 232 (se o micro não 
veio com uma) você estará apto a ingres- 
sar no mundo das telecomunicações. E 
tudo muito simples e relativamente ba- 
rato. Esta simplicidade faz com que 
cada vez mais possuidores de microcom- 
putadores adquiram estes equipamentos, 
e via linha telefônica acessem os CBBS 
do Brasil e até do exterior. 

Telecomunicações por microcompu- 
tador é um segmento da indústria de mi- 
cros que rapidamente se desenvolveu. 
Assim, tornou-se comum ouvir termos 
como on-line, videotexto e modem, 

Tudo isto somado faz parte do que 
se chama a era da informação. Este ar- 
tigo não vem dizer que a era da informa- 
ção e da comunicação chegou, ele pre- 
tende dizer que ela está aqui, agora, pas- 
sando por você. Ele vai dizer também 
como você pode participar. 

Nos Estados Unidos e Europa esta 
tendência vem sendo seguida há algum 


62 


tempo. Do conforto de suas residências, 
as pessoas têm acesso a serviços de tele- 
comunicação que tornam disponíveis 
a cultura e o conhecimento técnico e ci- 
entífico que a biblioteca do bairro (se 
existente) talvez não disponha. Além 
disso, opções de noticiário atualizado, 
programas de divertimento, cotações de 
bolsas de valores, tabelas de preços de 
lojas etc., estão disponíveis através da 
simples operação de conectar-se com o 
sistema, via rede telefônica. 

Estes serviços são oferecidos por sis- 
temas que gerenciam e centralizam o 
acesso público às informações coloca- 
das pelos donos/geradores da informa- 
ção (Informations Providers). As consul- 
tas são feitas ao serviço via rede telefô- 
nica, o qual recebe seu acervo do Infor- 
mation Provider. A figura 1 dá uma 
idéia de como é esse processo. 

No acesso a estes serviços normal- 
mente se paga uma taxa, de acordo com 
o tempo de conexão e o tipo de infor- 
mação que em parte é repassada para o 
fornecedor da informação. Estes siste- 
mas são organizados em bases comer- 
ciais. Existem muitos outros que não 
têm interesse comercial algum, organiza- 
dos por entusiastas da telemática que 
concebem e perenciam seus sistemas 
com tanta seriedade que não se pode di- 
zer que o façam por hobby. 

No Brasil, são exemplos a nível de 
empresa a Embratel (Cirandão), a Con- 
trol Data (Clube do Micro), e Telesp 
(Videotexto), com seus sistemas aber- 
tos. A Fundação Getúlio Vargas e o 
IBGE (com ótimos acervos) em breve es- 
tarão com seus sistemas operando. 

O ano de 1984 foi marcante para a 
telemática entre nós, pelo aparecimento 
de vários sistemas desenvolvidos por pes- 
soas não necessariamente da área de In- 





formática e que são os pioneiros dos 
CBBS no País, entre eles, Paulo Sérgio 
Pinto, João Roberto Amin, Antônio 
Prado, Henrique Pechman e Sylvain Ro- 
thstein. 

Estas pessoas são pesquisadores e in- 
teressados no assunto que se sentem, 
como qualquer um de nós, excitados 
com a possibilidade de chamar outro 
computador, distante deles, e ver no 
display novas informações e uma infi- 
nidade de utilidades disponíveis. Espíri- 
tos empreendedores, eles aceitaram o 
desafio de desenvolver seus sistemas ou 
adaptar sistemas comerciais (recriando- 
os na verdade), colocando-os à disposi- 
ção dos usuários que rapidamente se 
multiplicam. Acreditamos que o pensa- 
mento destes precursores pode ser tra- 
duzido pelas palavras de Lary L. Meyers 
em seu livro How to Create Your Own 
Computer Bulletin Board, que diz: “Eu 
gosto da mecânica envolvida e que torna 
possível tal fato (telecomunicação por 
micro). Se você parar para pensar so- 
bre todos os dados que devem ser trans- 
mitidos e recebidos, você vai dar o devi- 
do respeito pela tecnologia envolvida. 
Foi este respeito, adicionado ao fator 
novidade, que me incentivaram a escre- 
ver meu próprio CBBS.” 

A idéia dos CBBS, nos Estados Uni- 
dos, iniciou-se com Randy Suess e Ward 
Christensen, considerados os pais dos 
pequenos sistemas de quadros de aviso. 
A idéia deles era criar um lugar de cha- 
mada para outros membros do clube, 
um local de usuários de computador. Se- 
guiu-se a isso, a criação, por Graiq Vau- 
gham e Bill Blue, de sistemas voltados 
para a linha Apple (ABBS). Logo a se- 
guir apareceram nomes como o FORUM- 
80, ACCES-80 e GREEN MACHINE. 
Através destes boletins, sem ter que pe- 
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gar a pessoa em casa, é possível a troca 
de mensagens entre os usuários. 

No Brasil, a idéia desenvolveu-se se- 
guindo este mesmo modelo. Temos al- 
guns sistemas operando com sucesso, en- 
tre eles o FORUM-80 do Rio de Janeiro 
(tel. (021) 287-8844) que até novembro 
de 1984 contava com 250 usuários ati- 
vos e com 4000 chamadas desde junho 
de 84 quando foi lançado. Como os de- 
mais CBBS nacionais, não tem interesse 
comercial. O FORUM-80 está disponí- 
vel para acesso 24 horas por dia e, como 
os demais CBBS nacionais, não tem inte- 
resse comercial. A finalidade do sistema 
é promover o intercâmbio de informa- 
ções técnicas, mensagens comerciais, 
mensagens pessoais, bem como a troca 
de programas e arquivos de domínio pú- 
blico para usuários registrados. 


CBBS: O QUE SÃO E O QUE 
OFERECEM 


CBBS ou Computer Bulletin Board 
System (sistema de quadro de avisos por 
computador) é o termo usado para des- 
crever um serviço em que pessoas distan- 
tes podem chamar um computador, 
usando a linha telefônica e um terminal 
de computador (ou micro), tendo acesso 
assim a várias funções. Estas funções vão 
desde simples mensagens até complexos 
bancos de dados, usando a grande capa- 
cidade de arquivos de um minicomputa- 
dor. Pense num quadro de avisos comu- 
nitário, onde você pode ler e colocar 
lembretes e avisos de objetos que quer 
vender/comprar, informações e eventos. 
Some a isto a possibilidade de trocar 
mensagens pessoais com amigos e a de 
consultar bancos de dados variados, e 
terá a idéia básica de um CBBS. 

Estes bancos de dados vão desde as 
simples listas de telefones, conjuntos 
de programas, até os mais complexos, 
com informações de interesse geral e 
ou acervo técnico/artístico/científico 
restrito a áreas específicas. 

A configuração básica para acessar 
um CBBS é simples. O equipamento 
principal você certamente possui e com 
dois acessórios você estará apto a conec- 
tar-se a qualquer CBBS. Vejamos: 


e microcomputador ou terminal 


e interface RS 232 
e modem 

e linha telefônica 
e software 


O tipo de microcomputador ou ter- 
minal que você vai utilizar fica inteira- 
mente por sua conta. Desde que o ma- 
nual garanta a colocação da placa RS 
232 (se não possuir), você não tem que 
se preocupar com isso. Algumas máqui- 
nas não usam internamente a mesma 
combinação de bits para processar uma 
letra. Felizmente existem padrões stan- 
dard para transformar o sinal elétrico de 
qualquer computador na mesma letra ou 
caráter digital, inteligível por outra má- 
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Figura 1 


quina, são o código ASCII e o RS 232, 
Não se preocupe, por conseguinte, com 
as características internas do seu equi- 
pamento. Você poderá usar também um 
terminal qualquer, desde que ele aceite 
uma interface RS 232. 

A R$232 é uma norma standard 
para comunicações seriais, definindo 
um método amplamente aceito para in- 
terfacear equipamento terminal (micro) 
com equipamento de comunicação de 
dados. 

O coração da interface é a UART 
(Universal Asynchronus Receiver-Trans- 
miter). Este integrado MOS LSI (por 
exemplo TR 16024,8255) contém a 
maioria do hardware necessário para re- 
ceber e transmitir dados seriais. A UART 
obedece a uma resolução industrial que 
estabelece normas do equipamento para 
interfacear um sinal assíncrono e a es- 
trutura paralela de um microprocessa- 
dor. A seção de transmissão da UART 
converte dados paralelos do micropro- 
cessador em informações seriais que 
contêm os dados juntamente com start 
bit, bit de paridade e stop bit. A seção 
de recepção converte uma informação 
serial também com start bit, dados, bit 
de paridade e stop bit em dados parale- 
los, e verifica a transmissão. 

A operação da UART pode ser pro- 
gramada; assim, o tamanho da informa- 
ção pode ter 5, 6, 7 ou 8 bits. A pari- 
dade poderá ser modificada (par, ímpar 
ou sem paridade), bem como o número 
de stop bits (1, 1.5 ou 2). 

O modem é um equipamento para 
transmissão de dados fornecidos em sé- 
rie, que se conecta a linha telefônica. 
Uma vez que os dados saem do compu- 
tador em forma serial, é necessário que 
sejam convertidos em tons requeridos, 
para transmissão através da linha telefô- 
nica. Esta é a finalidade do modem (mo- 
dular-demodular). Quando um bit de da- 
dos é colocado no modem, ele é conver- 
tido em sinais sonoros usando uma de- 
terminada convenção, 

Nos Estados Unidos usa-se a conven- 
ção Bell (homenagem a Graham Bell). 
Dentre estas podemos citar a Bell 103 
e Bell 212. Na Europa utiliza-se a con- 
venção CCITT. Dentre as convenções 
CCITT podemos citar a V.21, V.22, 
V.23 e V.24. Já no Brasil, através de 
norma da Telebrás, adotou-se o padrão 
CCITT. Neste padrão encontramos, por 
exemplo, a norma V.24 que determina 
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o sinal representado por 980 +- GHz e o 
espaço por 1180 +- 6Hz. Cada norma 
tem representação diferente para fre- 
quência e formas de modulação. Toma- 
se evidente que Bell não fala com CCITT. 

De uma maneira geral a velocidade da 
transmissão/recepção fica em 300, 1200 


ou 1200/75 bauds. Nos 300 e 1200 


bauds, a transmissão e recepção são fei- 
tas à mesma velocidade. Nos 1200/75, a 
transmissão é feita em 75 e a recepção 
em 1200 bauds. 

O uso de um modem, ligado a linha 
telefônica, está regulamentado e autori- 
zado pela portaria 081/81 que autoriza 
o uso da rede telefônica para transmis- 
são de dados. Qualquer dúvida, entrar 
em contacto com o serviço comercial da 
Embratel, pelo telefone (021) 221-1830. 


>> 


SEJA NOSSO 
COLABORADOR! 


Escreva um bom artigo sobre: 


* Macetes de programação 
* Dicas sobre seu equipamento 
* Sistema operacional, etc. 


E envie-o para nossa redação. 
Os artigos aprovados serão 
remunerados e os outros, 


devolvidos. Mas não se 
esqueça de mandar seu nome 
completo, endereço e telefone. 


VENHA FAZER 
NOTÍCIA CONOSCO! 


Sisto Ee 


Av. Presidente Wilson, 165/ grupo 1210, 
Centro, Rio de Janeiro — RJ — 
CEP 20030 Tel.: (021) 262-5259 


R. Oliveira Dias, 153, Jardim Paulista, 
São Paulo, SP CEP 01433 — Tels.: (011) 
853-7758, 881-5668, 853-3800 
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O que você também necessitará, para 
entrar em contato com um CBBS, é de 
uma linha telefônica. A ligação do mo- 
dem à linha é simples e feita em parale- 
lo, bastando ligar os dois fios nos seus 
terminais. 

O software que você terá que dispor, 
para poder usar os serviços, pode ser de 
dois tipos, basicamente. 

O primeiro é bastante simples e simu- 
la um terminal teletipo ou simulador 
TTY ou emulador TTY. E o chamado 
terminal burro podendo ser poucas li- 
nhas de programa em BASIC (até 300 
bauds) ou em Assembler, para não per- 
der caracteres, se a transmissão for em 
1200 bauds. Este software coloca na 
sua tela cada caráter recebido pela RS 
232, e transmite para a R$ 232 cada ca- 
ráter digitado no seu teclado. 

O segundo tipo, além das funções 
acima, oferece outros recursos, sendo 
chamado terminal inteligente. Podemos 
citar, dentre as funções, as de transmitir 
e receber arquivo, gravar em disco, per- 
mitir simultançamente display e impres- 
sora, e funcionar em half duplex ou full 
duplex. 

Em half duplex, os caracteres envia- 
dos para a RS 232 vão para o seu vídeo 
(com eco). Em full duplex, os caracteres 
digitaãos são enviados para a R$ 232 e 
não para o vídeo (sem eco). Neste caso, 
o host providencia o eco para que você 
possa visualizar o que foi enviado. 

As outras funções dependem das ca- 
racterísticas de cada equipamento. 

À primeira vista, organizar um CBBS 
parece ser muito difícil e dispendioso. 
Se você é empreendedor, tem bom co- 
nhecimento de BASIC e Assembler e al- 
gum capital, saiba que não é tão difícil 
assim tornar-se um Sysop (System Ope- 
rator). 

O equipamento é basicamente o mes- 
mo. O modem deverá ser mais sofistica- 
do (auto answer) para responder auto- 
maticamente ao chamado do usuário. 
Existem livros especializados que forne- 
cem todos os detalhes e macetes, inclu- 
sive com listagem dos programas. Você 
poderá obter sistemas prontos (manual e 
disco com programa) nos fornecedores 
estrangeiros. | 

Acreditamos no surgimento, muito 
em breve, de novos CBBS, na medida 
em que o interesse dos usuários for au- 
mentando. 


POR TELEFONE 


A melhor forma de você ficar conhe- 
cendo os CBBS é acessando-os. Conec- 
te-se e verifique as modalidades de ser- 
viços, o mais solicitado é o quadro de 
avisos. O Cirandão já oferece um serviço 
exclusivo para a área médica e muitas 
outras opções. 
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Além da utilidade e dos serviços, des- 
tacamos o aspecto social, pois os usuá- 
rios de CBBS acabam tornando-se ami- 
gos, sendo muito solidários entre si, pro- 
curando resolver problemas técnicos e 
particulares, promovendo eventuais en- 
contros para confraternização e debate 
de assuntos de interesse mútuo, 

Faça um acesso a qualquer dos CBBS 
abaixo via telefone. No Brasil temos: 


e CBBS DO AMIN 
telefone: (021) 246-2938 
de segunda a sexta, das 20 às 24 horas 


sábado e domingo das 14 às 24 horas 
atendimento Bell, 300 bauds, 8/1/N 


e CBBS DO PINTO 
telefone: (021) 227-9211 
segundas, quartas e sextas, das 20 às 
24 horas 
atendimento Bell, 300 bauds, 8/1/N 
telefone: (021) 247-8440 
de segunda a sexta, das 20 às 24 horas 
sábado e domingo, das 14 às 24 horas 
atendimento CCITT, 300 bauds, 8/1/N 


e CBBS DO PRADO 
telefone: (011) 813-2616 
terça e quinta, das 20 às 24 horas 
atendimento CCITT, 300 bauds, 8/1/N 
quarta das 20 às 24 horas 
atendimento Bell, 300 bauds, 8/1/N 


e CLUBE DO MICRO 
Rio de Janeiro: (021) 266-3939 
São Paulo: (011) 255-0300 
Belo Horizonte: (031) 337-7767 
dias úteis, das 20 às 24 horas, sábados 
de 8 às 24 horas 
atendimento CCITT, 300 bauds, 7/1/E 


e CIRANDÃO 
Rio de Janeiro: (021) 233-2000 
Belo Horizonte: (031) 227-3300 
Curitiba: (041) 233-3855 
Brasília: (061) 225-0300 
Porto Alegre: (0512) 21-0222 
diariamente de 07 à 01 hora do dia 
seguinte 
atendimento CCITT, 300 bauds, 7/1/E 
Rio de Janeiro: (021) 253-4000 
Belo Horizonte: (031) 227-3200 
Curitiba: (041) 233-3796 
Brasília: (061) 226-1200 
Porto Alegre: (0512) 27-1200 
diariamente de 07 à 01 hora do dia 
seguinte 
atendimento CCITT, 1200/75 bauds, 
T/1/E 


e FORUM-80 DO RIO DE JANEIRO 
telefone: (021) 287-8844 
diariamente horário integral 
atendimento CCITT,300 bauds, 8/1/N 


Nos Estados Unidos, temos: 


e FORUM-80%1 
Kansas City, Missouri 


telefone: (816) 861-7040 
atendimento Bell, 300 bauds, 8/1/N 


o CBBS7%] 


Chicago, Illinois 
telefone: (312) 545-3086 
atendimento Bell, 300 bauds, 8/1/N 


e CONNECTION-80%1 


Centereach, New York 
telefone: (516) 588-5836 
atendimento Bell, 300 bauds, 7/1/E 


E na Europa: 


e CBBS NORTH-EAST 


Inglaterra 

telefone: (44) 02707-43555 

das 2.30 PM às 09 AM (hora local) 
atendimento CCITT, 300 bauds 


e MAILBOX-80 
Inglaterra 
telefone: (44) 051-428-8924 
das 09 AM às 11 PM (hora local) 
atendimento CCITT, 300 bauds, 8/1/N 


e FORUM-80 
Inglaterra 
telefone: (44) 0908-566660 
das 7 AM às 10 PM (hora local) 
atendimento CCITT, 300 bauds 


e FORUM-80 
Holanda 
telefone: (21) 01-313-512533 
terça a sábado de 06 PM às 07 AM 
(hora local) 
sábado 06 PM até terça às 07 AM 
(hora local) 
atendimento CCITT, 300 bauds 


e ABC-80 
Suíça 
telefone: (046) 010-468-190522 
atendimento CCITT, 300 bauds 


e SOFTWARE TOOLS RCP/M 
Sydney, Austrália 
telefone: (061) 2-997-1018 
atendimento CCITT, 300 bauds 


As informações acima (telefone e ho- 
rário) foram compiladas na primeira 
quinzena de dezembro de 1984. Como 
os sistemas são muito dinâmicos, algu- 
mas alterações podem ter ocorrido, des- 
de então. 

Agora, conecte-se e tire suas próprias 


conclusões. Garanto que você vai gostar. 


= 
[a 





Ricardo Weiss Muricy é contador, estudioso 
de Informática e programação, sendo usuário 
de CBBS. Já colaborou nesta revista com os 
artigos “UM SHELL SORT PARA REGIS- 
TROS DE VÁRIOS CAMPOS” (MS set. 82) e 
“MEU APRENDIZADO DE BASIC” (jul. 82) 
tendo colaborado também em outros veículos 
sobre legislação fiscal e temática contábil. 
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JOGOS EM AÇÃO EM LINGUAGEM DE MÁQUINA 


101 Cuber:(32K) ajude o cuber a enfrentar os Era enquanto a pirâmide muda de cor. 20,000 
102 Trapfall: (16K) são muitas as armadilhas (Pitfalls) e os perigos que você enfrenta na 

caça ao tesouro. 20,000 
103 dr. Reverenge:(32K) Climb enfrenta obstáculos e criaturas para salvar seu pai do terrl- 


vel Luigi. 20.000 
104 8- Ball: (16K) para os amantes do jogo de bilhar. 20,000 
105 Tênis: (32K) para os amantes do jogo de tênis. 20.000 
106 Cyrus (Xadrez): (32K) para os amantes do jogo de xadrez. 20.000 
107 Sea Dragon: (32K) emoção e suspense sob as águas. ) 
108 Tubarão: he ) um jogo para quem tem nervos de aço. 20.000 
109 Vegas: (32K) sinta-se num cassino-caça-niquel, cartas, loto, dados e 21, 20.000 
HO Pic nic: (32K) ajude a formiga a estocar alimentos. 20.000 


111 Moon Shutle: (32K) enfrente todos os obstáculos (meteoritos, bombas, etc) para des: 
truir 0 príncipe das trevas. 
112 Zaxxon: (32K) enfrente canhões, mísseis, aviões, barreiras de força e destrua o robô 


Zaxxon. , 
13 Pooyan: (32K) defenda o seu vale da invasão dos lobos. 20.000 
114 Froog: (32K) ajude o sapo a atravessar a rua e o rio. 20.000 
115 Jet; (16K) viva as emoções do filme Retorno de Jedi, 20.000 
H6 Andróide: (32K) elimine os andróides e saia do labirinto. 20,000 


117 Astro-Blast: (32K) batalha espacial. 
118 Pássaros: em To Os pássaros invasores. 


119 Buzzard Bait; (32K) ataque os pássaros com sua lança, 20.000 
120 Candy Co; (32K) coma doces e vitaminas para eliminar os inimigos. 20,000 
121 Cashman: ar) pegue o dinheiro e elimine os gatos (99 telas). 20,000 
122 Clowns: (32K) fure os balões saltando na cama elástica. 20.000 
123 Cosmic: (16K) futebol americano com naves espaciais. 20.000 
124 Cpede: (16K) mate a centopéia e a aranha, 20.000 


125 Demon Seed: (32K) destrua pássaros, sementes e a nave. 

126 The King: (32K) salve a prinotaa raptada pelo King Kong. 

127 Firecopt:; em apague incêndios e elimine incendiários, 

128 Doodle Bug: (32K) estilo Pacman. 

129 Fury: (32K) batalha aérea. 

130 Gallax Attack: (16K) batalha espacial, 

131 Gllaxxons: (16K) batalha espacial. 

132 Gobbler: (16K) tipo Pacman, 

133 Grabbler: (32K) defenda-se dos inimigos em um duplo labirinto. 
134 Grand Prix: (32K) corrida de carro. 

135 Kron: (32K) 4 jogos diferentes em um. 

136 Lunar: (32K) vença os obstáculos durante um passeio de Jeep na lua. 
137 Mudpies: (32K) atire tortas e defenda-se dos cozinheiros. 

138 Pedro; (32K) defenda o jardim dos animais. 

139 Pinball; (32K). 

140 Polaris: (32K) defenda os submarinos do ataque aéreo. 

141 Draconia: (32K) salve os prisioneiros do espaço e fuja do dragão. 


ssss8s55588 
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142 Bag-Man: (32K) roube o ouro e fuja dos mineiros. 20.000 
143 Tul's Tomb: (32X) enfrente os perigos de uma caverna em busca do tesouro. 20.000 
144 ha (32K) transporte os números de um lado para outro sem ser derrubado pelos 
nimigos. y 
145 Worlds of Flight: (32K) simulador de vôo. 20,000 
146 Mega Bug: (16K) fuja das baratas em um labirinto. 20.000 


147 Bandits: (32K) procure tesouros em três terras (fantasia, fuluro é oeste) e enfrente os 
bandidos. ? 


JOGOS DE AVENTURA COM ALTA RESOLUÇÃO GRÁFICA 


201 Calixto: (32) ajude o arqueólogo (prof. lagarto) a recuperar o tesouro -em Inglês. 25.000 
202 Sea-Quest: (32K) recupere o tesouro perdido - em inglês. 25.000 


“203 Shennan: (32) encontre o tesouro no fim do arco-iris - em Inglês. 25.000 
204 Sanctum: (32K) exorcise o demônio - em inglês. 25.000 
JOGOS EDUCATIVOS 

304 Figuras Mágicas: (16K)associação de figuras e cores de seis maneiras diferentes. Para 
crianças de 3 a 6 anos - Manual em inglês 40,000 


305 Letras Mágicas: (16K) ajude o bicho papão a comer as letras certas. Para crianças de 
3 a 6 anos - manual em inglês. 40 
306 Números Mágicos: (16K) ajude o Grover Rover a brincar com os números. Para crian- 
as de 3 a 6 anos - manual em inglês. 
307 Correio Eletrônico: (16K) ajude o Big Bird a entregar as correspondências nos luga- 
res certos. Para crianças de 3 a 6 anos - manual em inglês. 


308 Caça às Estrelas: (16K) jogo estratégico. Você tem que pegar as estrelas no céu. Para 
crianças com mais de 7 anos - Manual em inglês 


| pagarei a quantia de Cr$ 
EEE El 








| NOME: 

| END: 

[iBADE = —— a mao > +66 

| Para tal, estou enviando um cheque nominal à AT| Editora Ltda., Av. Presidente Wilson, 165 
| Grupo 1210 - Centro, CEP 20.030 - Rio de Janeiro - RJ. € Despesas de Correio incluídas 


504 Pascal 


PROGRAMAS PARA CP-400 
COLOR 64 - TRS-80 COLOR COMPUTER 


A MICROMAQ o mais tradicional revendedor de software para a linha TRS-80 
COLOR COMPUTER no Brasil, em conjunto com a MICRO SISTEMAS coloca 
à disposição dos usuários o maior catálogo de programas para esta linha. 


APLICATIVOS COMERCIAIS 


401 WRITTER Il: (32K) editor de texto com as seguintes caracteristicas: linha de até 240 
caracteres na impressora e 51 colunas na tela. Capacidade para imprimir caracteres 
portugueses ou simbolos especiais (alé 10). Paginação automática. Centralização au- 
tomálica, Manual em Inglês com 90 páginas, 120 

402 Elite-Calc: (16K) plarfilha eletrônica com as seguintes características: até 255 linhas 
e colunas. Manipula textos, números, operadores matemáticos, funções trigonomé- 
tricas e funções estatísticas (máximo, mínimo, média). Emite gráficos e permite or- 
denar colunas e linhas. Manual em inglês e português - 20 p, 

403 Color File; (16K) banco de dados que permite manipular 7 Equinos pré-definidos (en 
dereços, despesas, investimentos...). Você também pode definir os seus próprios ar- 
quivos com campos alfabéticos ou numéricos. Manual em inglês com 10 páginas. 60.000 


LINGUAGENS 
501 Edtasm: (16K) Linguagem Assembler para o 6809 + MI, 80,000 
502 Forth: (16K) Linguagem Forth para o 6809. MI. 60.000 
503 Logo: (32K) Linguagem educativa logo - MI. 100.000 
UTILITÁRIOS 


601 Color Kit:(32K)utilitário em Assembler que complementa a Color Basic com mais de 

30 funções para facilitar a programação em Basic ou linguagem de máquina, Manual 

em inglês com 30 páginas. 80,000 
602 Stripper: (16K) utilitário que permite compactar programas em Basic eliminando bran- 

cos, comentários e concatenando linhas. 
603 Tiny Compiler; (16K) utilitário que permite compilar a maioria dos comandos Basic e 

extended Basic. Manual em inglês. 
604 Super Screen: (16K) aumenta o tamanho da tela. O Color passa a trabalhar com 57 co- 

lunas e 24 linhas. , 
605 Disassembler: (16K) disassemblador de programas em linguagem de máquina. 40.000 
606 Hambug: (16K) permite analisar byte a byte qualquer programa Basic ou em lingua- 

gem de máquina. Manual em inglês. 50.000 


SOFTWARE DE COMUNICAÇÃO 


Color Terminal: (16K) software de comunicação para o projeto Cirandão, Aruanda e Ban- 
cos de Dados Particulares. Transmite e recebe arquivos em Basic ou linguagem de má- 
quina. BAUD RATE de 110 a 9600 em DUPLEX/HALFIFULIECHO. Tamanho da palavra 
na Et Paridade par, Impar ou nenhuma. Stop Bits de 1 a9. Manual em inglés com 
páginas. | 


á 


— 


NOVIDADES 
148 Poltergeinst 20.000 
149 Double Back 20.000 
150 Storm Arrows 20.000 
151 Time Figlher 20.000 
152 Super Pac Il 20.000 
153 Speed Race 20.000 
154 Fly Tiger 20.000 
155 Ice Hockey 20.000 
156 Out House 20.000 
157 Packmaze 20.000 
158 Pac-Tac 20.000 
159 Robotron 20.000 
160 Tempest 20.000 
161 Protetor 20.000 
162 Venturer 20.000 
163 Defense 20.000 
164 Quicx 20.000 
165 Smurf 20.000 
205 Star Trader 25.000 
206 Midle Kindgton 25.000 


| ERA ass SIM. Desejo receber os seguintes programas pelo(s) qual(is) 


TABELA 
DE DESCONTO 


até 50.000,00 - sem desconto 

de 51.000,00 a 100.000,00 - 5% 
de 101.000,00 a 150.000,00 - 10% 
de 151.000,00 a 200.000,00 - 15% 
Acima de 200.000,00 - 20% 





MICROMAQ - Rua Sete de Setembro, 92 - Lj. 106 - Tel.: (021) 222-6088. 


o o ad 
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Linha SINCLAIR CC NEH Linha APPLE 
TINTO DAY R Brincando com o vídeo | De baixo para cima: 


Eis algumas interessantes sugestões de 10 FOR A=24 TO 4 STEP-L2UTAB AZHTA 
efeitos para o seu Apple. B 1:CALL-B68B:FOR B=i TO 30:NEXT B, 
Ed * * A 
Apague o vídeo da esquerda para a direita: 
























Datilografia 
no micro 


Essa rotina trans- 
forma seu micro numa 
poderosa máquina de 
escrever. Para dipitá- 
la crie uma linha REM 
com 40 caracteres e 












(definição de mensagem) dos editores de código de 
máquina. 


E! 
2000 PRINT “ENDERECO 27 
9005 INPUT E 


9010 PRINT “MENSAGEM 2” 


De cima para baixo: 


DEFM no Sinclair 
A dica abaixo é muito útil para programadores que 
utilizam o Assembler. Ela simula a instrução DEFM ny) 


10 FOR Azi TO 40:POKE 33,A:HOMEZFO 
R B=í TO J02NEXT B,A 10 FOR A=Í TO 242:VTAB AZHTAB fECAL 
L-B6B:FOR B=í TO 30:NEXT B,A 






Da direita para a esquerda: 





ola) 





dá DR O TOA MDL DO é De cima para baixo com risco horizontal: 


POKE 33,40-A:HOMEZFOR B=1 TO 90:NE 






















Im 


901% INPUT MG XT B,A - ndo : 

ei ” : - para usá-la basta O r 10 bg do Az=í E pr Asay 

7020 LET ASPRER 160970 E RAND USR 16514. Do centro para os lados: HTAB LANORHALIPRINT GPOCAM) NEXT À 
*HOME 


10 FOR A=í TO 20:POKE 32,20-A:POKE 
33,2%XA:HOME:ZFOR B=1 TO 30:NEXT B, 
A 


ATENÇÃO: O break 
pode ser usado como 
espaço normalmente e 
para retornar ao BA- 
SIC, pressione SHIFT 
+ BREAK. 











9025 LET Y=PEEK 16399 
9030 POKE 16398,E-206%XINT(E/236) UV) 
9033 POKE 16399, INT(E/236) 

9040 PRINT M$ 


9045 POKE 16398,X 
7050 POKE 163997,Y Envie suas dicas para a Redação de MICRO 


José Amim Cury Nasser - DF 


Linha TRS-80 Linha APPLE 



























905% PRINT “MENSAGEM DEFINIDA.” SISTEMAS, na Av. Presidente eita 65 — 
| | iro, RJ. 165144 DOS : 
As linhas 9030 e 9035 mudam a posição PRINT Ea o a = Centro Rio de Janeiro Ra Cs POKE no lugar de SET Brincando com o vídeo Il 




















Experimente estes efeitos sofisticados 
em seu micro da linha Apple. 
Apagando a tela em espiral; 


do arquivo de imagem para uma área qualquer, desig- 
nada pela variável de endereçamento É, tornando o 
PRINT uma instrução POKE muito mais eficiente. 


i6UisO 
i6Ui7 48 
L6ULB 77 
16919 fui 
L6URO BEM 


Para descobrir o endereço POKE de uma 
instrução SET (X,Y), use esta pequena fór- 











mula: 
1000 T=FIX(Y/3)x64+FIX(X/2)+15360 


Linha SINCLAIR 


Atire em movimento 
















Frederico dos Santos Liporace - RJ 





3 A=1:0=23 
10 INVERSEZHTAB 1L:VTAB AZPRINT SPC 
(40) NORMAL. 










onde T' = endereço, no vídeo, das coorde- 










































; Es 2) eye nte 
Linha C EA M Existe uma certa sos am BO Bo da o pi end rt nadas X, Y. 20 FOR I=A TO 222:VTAB IºHTAB 40-A: 
fi 16674 - 57 28 06 CB 67 &0 40 & ibúra bm E INVERSEZSPRINTO “INORMALINEXY 
dificuldade no 16682 - 28 23 7E FE 76 28 08 SE aaa 7 Fernando Osvaldo Oliveira Jr. - SC 30 INVERSEZHTAR 4:VTAB CEPRINT SPC 
d controle do micro 490 - 80 36 AS 42 22 84 40 DB lóves Q (40)ENORMAL 
Recuperan 0 programas pelo teclado du- 16698 —- FE CB 47 C2 7C 41 18 06 L6BDA AQ RES nato ERR a an As INV 
R Ea rante a execução 14706 - 00 00 00 00 00 00 Cao Lo») - 50 A=A412C=C-121F ACIS THEN GOTO 3 
Às vezes, durante a digitação de um programa (em BASIC de um programa Á pd a d 044 TA ha A PP LE o 
é 4 á p / : cio em 
ou em outra linguagem, e até mesmo em alguns programas principalmente quando este é em Assembler e há necessi- iGiro PO 
(COM), involuntariamente voltamos ao sistema e perdemos dade de se pressionar várias teclas simultaneamente: foi Ló 489 Faixas aleatórias Quadriculando a tela (Preto e Branco): 
o nosso programa spp Bras ama Se exatamente isto o que observei ao rodar o programa La- 160 7 
: oderemos re- o ) é ; , 
você não teve que dar um p ser Base: o tiro do canhão (MS nº 28, pág. 62), pois o ca LÓ? 126 10 INVERSEZFOR A=24 TO 4 STEP-A:VT 


















AB A 
20 FOR B=A-INTCA/2)x2+1 TO 40 STEP 
2:HTAB BIPRINTO “NEXT B,A 


nhão não reagia ao comando do teclado quando duas (ou 
mais) teclas eram acionadas. Por isso, tomei a liberdade 






cuperar o programa perdido. Para isso, depois que surgir O 4 rgpaçes 
pe prog Pp , LGUIO OE 


A > ,entrecom: SAVEOS $ $. COM.|(sendo que $ 8 $ 






































































































. pd ' er “ 
é o nome do programa). Depois, digite $ $ $ que o progra- de reescrever parte da sub-rotina que controla o canhão i ” e E 30 NORHAL 
ma estará de volta. do Laser Base. | itiúsde 8 
Esta sub-rotina, que permite o disparo do canhão em LUIS Q5A4 Quadricule a tela (várias cores): 
Domingos Aliperti Jr, - SP movimento, deve ser colocada a partir do endereço 16666. 16534 40 
E, como ela economiza oito bytes, foi inserido um des- 16535 20Q 10 HGRIPOKE 49234, 0:HCOLOR=3:F 
vio no endereço 16704 para ignorar, desta forma, os by- : da, Kó HBRIPOKE AVEIA OUHCOLORSIAROR A 
Linha SINCLAIR tes não utilizados. + Oi ó PO HPLOT 0,A TO 279, Az:NEXT A 
tos Toa Ê o . , j 30 FOR B=1t TO 137 STEP B:HPLOT B, 
I LO? À Deixe seu micro criar faixas aleatórias TO B,L9LNPLOT 279-A,4 TO B79-A É 
16938 17 com esse pequeno programa Applesoft. 9LENEXT B Pa 
Explorando gráficos se 16539 DEE | 
í 65 AO asi Es 10) REM FAIXAS ALEATORIAS Apague a tela com efeito estrela: 
) ' ci e ay 20 REM ARMANDO OSCAR CAVANHA FILHO 
Picasso? Van Gogh? Dali? Não chega a tanto, mas e E ! Sig psi dó ça 
bem que dá para inventar incríveis desenhos com este Ea h Fa TR S- e10) 16341 39 diJsk/2 e dus 
programa em BASIC, que explora bastante os caracte- Á 6 717) 90 IF AC8 OR AJES2 THEN K=-K yr erp ago: Mid 1:CALL-B6B: IE 
+ . Ad Sa 100 HCOLOR=| :HPLOT X,A TO X,AriO = VYHEN 6 » 45 

res gráficos do micro. Após rodar o ae eae pó Li so PTO à PTO 16543 585 110 HCOLOR=L + 2HPLOT X,A+40 TO X,A 20 C=C+4LIVTAB CEHTAB 1:CALIL-B6B 
sti | as iii 30 A=A+1:POKE 32,20-A:POKE 33,0xA: 
seus dotes artísticos modificando os valores das lin Igaçaãao E 120 HCOLOR=|.+22:HPLOT X,A420 TO X,A JO A=ArtaPOKE 32,20-A:POKE 33,2%A 






















+30 
150 TF X<3 OR X)275 THEN GOSUB 400 
1720 A=A+SNKXSTINCJXX/50):G0TO 80 
400 I=T+1:S=(-1) T2:K=38RND(1)2.)=RN 
D(1)xkK 

440 L=INTOC3IXRNDC4)+1)93TF INTCI/7)= 
1/7 THEN 500 

420 RETURN 

300 TEXT:HGR2:2RETURN 








16044 à 
16343 36 
LOÃA6 By 
16347 416 
16348 248 
16349 24 
16I)0 249 
iii 248 
ibide 24 


16333 


453 REM 


Apague a tela com INVERSE: 


de 20 a 30, ou então alterando o comprimento da 
variável AS. 


5 CLS 
10 RAND 

15 POKE 16418,0 

20 LET A=INT (RNDX40)+4 

25 LET B=INT (RNDxX40)+128 

30 LET C=INT (RNDX10)+128 

95 LET AB=CHR$ ArCHR$ B+CHRS$ C 
40 FOR T=í TO 256 

45 PRINT A6s 

S0 NEXT T 

55 FOR T=0 TO 20 

60 NEXT T | 
45 RUN ea , 


O ns a b | Manoel Silva Rodrigues - RJ. 















Esse pequeno programa traça uma linha entre dois 
ponto dados. 





















100 INPUT“ENTRE COORDENADAS X,Y DO PRIMEIRO PONTO” ;X,Y 
1410 INPUT/ENTRE COORDENADAS X,Y DO SEGUNDO PONTO” ;X4,Y1 
120 CLS:IF ABS(XL-X)<LABS(YL-Y)THEN 160 

130 FOR X2=X TO Xí STEP 2x(X1<X)+4 

140 SET(X2, (X2=XIRCVL-Y)/CXE-XI+AY AS) 

150 NEXT2END 

160 FOR Y2=Y TO Y4 STEP 2x(YI<Y)+1 

170 SETC.S+(Y2-Y)X(XI=XI/(YVI-Y)+X, VB) 

180 NEXT:END 
EE eo TE E 
Fernando Osvaldo Oliveira Jr. - SC 


10 B=1:C=1 

20 FOR [=24%A+B TO 244B+A STEP Cri 
F B=í THEN INVERSE 

30 HTAB Í:VTAB I:PRINT SPC(40):NOR 
MAL:NEXT [zIF A=1 THEN GOTO 50 

40 A=1:0=-1 :B=0:G0TO 20 

30 REM 






















































José Amim Cury Nasser - DF 












OPCAO PARA O TK2000: 140 SOUND A,L 


Ga E o a E 
Armando Oscar Cavanha Filho - RJ 







Claudio Costa - RJ 
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O Constellation é uma boa 


micro Constellation, fabrica- 

0 do em Hong Kong pela Novag 

Industries Ltda., esconde em 

sua aparência simples uma habilidade 

para o xadrez que chega a surpreender. O 

conjunto de abertura que vem em sua 

bagagem mnemônica é de excelente qua- 

lidade. A busca de uma fraqueza em seu 
jogo exige bastante paciência. 


Seu forte é a abordagem tática das 
posições com as quais se defronta. O 
jogo na fase final pareceu-me, contudo, 
inferior ao do Elite A/S B. Mas levando- 
se em consideração seu preço — metade 
do concorrente, o Elite — é ainda uma 
boa compra. 


OBS — Por motivo de doença em fa- 
mília suspendi a elaboração desta colu- 
na, que muito me agrada produzir. Que- 
ro agradecer as manifestações de interes- 
se e pedidos de continuidade de amigos 
e leitores. 


CONSTELLATION X NN 
NÍVEL 4 — RIO, 18, XI, 1984 


|-P4R P4R; 2-C3BR C3BD; 3-B5C 
CR-2R; 4-0-0 P3TD; 5-BxC CxB; 
6-P4D P3D; 7-P5D (?) CIC; 8-C3B 
B5C; 9-B3R C2D; 10-P3TR B4T; 11- 
TIR B2R; 12-P3CD (?) P4CR; 13- 
P4CR B3C; 14-D2D P4TR; 15-CxPC 
PxP; 16-PxP C3B; 17-P3B (?) com 17- 
D2R as brancas evitariam a combinação 
que as pretas planejam para romper as 
defesas do rei branco. 17-.,..D2D; 18- 
TIBR (º?) impunha-se jogar 18-D2€C 
para defender a casa 4CR seguido do rei 
a 2B para poder mobilizar as duas tor- 
res. 18-...0-0-0 as pretas completam a 
mobilização de suas peças sem que as 
brancas percebam as intenções do adver- 
sário. 19-TDIC as brancas desperdi- 
çam a última oportunidade de organizar 
uma defesa razoável. 19-...T5ST!;, 20- 





O cenário está pronto para uma de- 
monstração de força das pretas. 

20-...TxP+!!; 21-PxT se recusar a 
captura, as pretas continuam com 21-..,. 
TxC! se 22-DxC CxPR! com múltiplas 
ameaças indefensáveis. 21-,..DxP+; 22 
B3C (forçado) DxB+; 23-D2C D6C+; 
24-T2B DxC€; 25-P4€ o Constellation 
está aturdido e impotente. 25-...T1IC 
abre mais uma coluna sobre o monarca 
branco. 26-T1-1B BxP!;27-CxB TxD+; 
28-TxT CxC; 29-TxP R2D; 30-T2- 
7C D8R+; 31-R2ZT D5ST+; 32-R2€C 
P4C; 33-TxB+ DxT; 34-TxD RxT; 
35-R3B C6B e a partida foi declarada 
perdida para as brancas. 


CONSTELLATION X NN 
NÍVEL 3 — 17,X1,84 


1-P4R P4R; 2-C3BR C3BD; 3-B4B 
B4B; 4-P3B D2R; 5-P4D PxP; 6-0-0 
PxP;7-CxP C4R (?) 
LESMsZaR 
R dm 


/ 4 ; 
A tê S/A 
/A MA 
2/54/68 
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ida 
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Posição depois de 7-CxP C4R (2). A 
pressa em trocar peças-leva as pretas a 
ficarem em posição inferior. 

8-C5D! D3D. Se 8-...CxC+;9-DxC 


C6C! ou 10-...D3D B4B! 9-...D3D;10- 
CxC DxC; 11-B4B! ganhando material. 


CONSTELLATION X ELITE /AS 
NÍVEL 2 — RIO, X, 1984 
DEFESA “CARO-K ANN” 


|-P4R P3BD; 2-P4D P4D; 3-P5R 
B4B; 4-P4BR D4T+; 5-P3B BxC, 6- 
TxB DxPT e as brancas capturam um 
peão. 7-B3R P3R; 8-B3D C3TR; 9- 
C2R B2R; 10-CIB D4T; 11-0-0-0-0; 
12-B2BD C4B; 13-B2B C1-2D; 14- 
P4CR C5T; 15-D3D consequente com 
a 132 jogada. 15-...C3CR; 16-P5SB 
C5SB; 17-D3B P4CR; 18-C3D CxC; 
19-BxC P3TR; 20-P6B BID; 21-D3T 
P4T; 22-DxP CxPB apenas retarda o 
desfecho da partida sem contudo modi- 
ficá-lo. 23-PxC TIR; 24-D7T+ RIB; 
25-D8T, mate. 


LIPNICKY X SCHULZ 
BERLIM, 1945 





As pretas jogam e empatam, 


SOLUÇÃO: 


"CXL dXH D +dXd XH d irHdxav = 
(ES 





Enxadrista experiente, Luciano Nilo de An- 
drade já escreveu para os jornais “Correio da 
Manhã”, “Data News” e “Ultima Hora” e pa- 
ra a revista “Fatos & Fotos”, Luciano é econo- 
mista, trabalhando no Ministério da Fazenda, 
no Rio de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
últimas novidades do Xadrez jogado por com- 
putadores, estarão sempre presentes em 








ASSISTÊNCIA 
TÉCNICA 
AUTORIZADA 


SOFTWARE — CP/M 


e Administração Imóveis/ 
Condomínios 

e Controle Administrativo/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

e Controle Operacional Hotéis 

e Correção Monetária balanço 

e Faturamento Serviços Médicos 
(Convênios) 

e Formulação/Cálculo de Rações 

e Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 


Microcomputadores 

IBM PC, APPLE, TRS-80 
Nacionais compatíveis 
Drives, Impressoras 
Consulte-nos sobre 
Contratos de manutenção 
Praia de Botafogo nº 210 — C-01 
CEP 22250 — Botafogo — RJ 
Tel. PBX (021) 551-6699 


Av. Alm. Barroso, 91 - gr. 1.111 
Tel.: (021) 262-1886 


PARA 
PROBLEMAS 
TECNICOS 


COMPUTADORES || ET 


E PERIFÉRICOS 


UNITRON 
MICROCRAFT 


VENDAS 


LEASING | 
PARA PROBLEMAS COM MATERIAL DE 


PROG RAMAS DESENHO - PINTURA - ENGENHARIA 
CURSOS Rem EM GERAL 

ASSISTÊNCIA S0P ELETRÔNICO. 
TÉCNICA 


onde você AINDA encontra prego 
e qualidado de ANTIGAMENTE! 

Av. Mal. Câmara, 271 s/loja 101 

Tel: (021) 262-3289 — RJ). 


AV. ALMIRANTE BARROSO, 81 - LJ “C” 
TEL.: 262-9229 - 262-9088 - 240-8410 - 221-8282 
RIO DE JANEIRO - CASTELO 












PROFISSIONAL DE GRANDE QUALIFICAÇÃO 


MICROCOMPUTADOR 
MTS-IV 


ALBAMAR 


ELETRÔNICA LTDA. 


FITAS CASSETES 
TAMANHOS 
C5 C10 C15 €20 
C30 e outros 


OFITAS 
MAGNÉTICAS 
1200 e 2400 pés 


O DISKETTES 
51/4e8”" 


Rua Conde de Leopoldina, 

270-A São Cristóvão — R.J. 

Tels.: (021) 580-6729 
580-8276 





















e ELETRÔNICA DIGITAL | e |l 
— Prática em KITs + apostila encadernada. 
e MICROPROCESSADORES 
- 8085 - 8080 - 8086 - 8088 - 6502 
—- Prática nos KITs ZHardware e Banana 85 + 
apostila encadernada. 

e MANUTENÇÃO DE 
MICROCOMPUTADORES 
TRS80 - CP500 DGTIOO - NAJA - SYSDATA 

—» Prática de manutenção com sofisticados 
equipamentos + apostila encadernada + 
esquema de todos os computadores. 

e MANUTENÇÃO DE PERIFÉRICOS 
DRIVES - IMPRESSORAS - MONITORES - 
INTERFACES 

— Prática de manutenção com sofisticados 
aparelhos + apostila encadernada + 
esquemas dos Periféricos. 
















DE 16 BITS. 





CURSOS cs 
HARDWARE «. SOFTWARE ,o 


CORRESPONDÊNCIA ou PESSOALMENTE C/AULAS PRÁTICAS 


e INTRODUÇÃO à COMPUTAÇÃO 
—- Prática de manuseio e verificação das partes do 

computador e suas unidades + apostila 
encadernada. 





e COBOL PARA MICROCOMPUTADORES 
-»-Prática de programação nos computadores da 
“Hardware” + apostila encadernada. 





MAQUIS TECNOLOGIA E SISTEMAS LTDA E 


| 


DNES 


CEEE 
watermas de banco de dados 


PUBLICAÇÕES TÉCNICAS 
Disponíveis em português 


1 - Curso de dBase | 
9 - Aplicativos dBase Il 
3 - Relatórios dBase |l 
4 - Curso de dBase Ill 
5 - Curso de Lotus 1-9-3 
6 - Aplicat, Lotus 1-2-3 
7 - Curso de Symphony 
8 - Curso de framework 
9 - Curso de DOS (PC) 
TO - Curso de Unix 
W - Curso de linguagem € 
192 - Curso de UJordstar 
MEG. SEIN.º 0219 


VENDAS DISPONÍVEIS PARA 
TODO BRASIL 

AI. Santos, 336 - (].49 
CEP01418-SP 

TEL: (011) 285-0139 











e BASIC BÁSICO e AVANÇADO 
—» Prática de programação nos computadores da 
“Hardware” + apostila encadernada. 


e ASSEMBLER ZILOG e INTEL 
(280 e 8085) 

-»-Prática de programação nos computadores 
ZHardware - Banana 85 - CP500 - TKB3 - DGTIOO 


ATENÇÃO: INICIO DE TODOS OS CURSOS EM ABRIL/85 
HARDWARE CURSOS - INDUSTRIA DE INTERFACES - ASS. TECNICA 
- COMPONENTES ELETRÔNICOS 

MARRECAS, 39/402 - Cinelândia - CALL (021) 220-5403 - RJ 


O MAIS RÁPIDO DO MERCADO, 
FABRICADO POR QUEM FAZ A 
MELHOR MANUTENÇÃO. 
CONSULTE OS NOSSOS CLIENTES. 
AGORA TAMBÉM O MODELO 


MTS/PC - XT 





































B2B. ameaçando depois de 9-..DID; 10- MICRO SISTEMAS. Ria da Jávéiro São Paulo 
Av Barão de Tefé 7 GR 501/08 Av dos Imarés 999 

EE =— == > = 22 2 E OS Telefone 263 3330 Telefone 543 3511 
TWX (021) 30354 TWX (011) 21299 
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SOFTWARE 





e Programas p/Apple — os me- 
lhores do mercado internacional 
— 1.000 títulos — Cr$ 25.000 
disco cheio — Alfamicro — CX. 
Postal 21193 — S. P. 


e Vendo jogos nac. e imp. p/ 
TK 85, CP 200 linha Sinclair: 22 
jogos de 16K por 15 mil. Cx. Pos- 
tal 529 - CEP; 09500 - S. C. do 
Sul - SP, 


e Vendo ou troco soft p/CP- 
300 e similares. Tratar c/ Ivan - 
Rua João Barcelos, 40 - Itamara- 

- Petrópolis - RJ. CEP; 25600 - 
Tel.: (0242) 42-5516. 


e Micro é movido a programa da 
Microlove. Reabasteça o seu Sin- 
clair e TRS-80 com nossos pro- 
gramas. Peça lista gtel,: (011) 
448-4372. 


e Progs. p/Sinclair: 10 à escolha 
p/1 ORTN. Jogos inéditos e em 
alta resolução: Pack Rabit, Qbert 
Burgertime, Valkirie, etc... A. M, 
Brito - SHIN QI - 13 Ci. 41Cs. 4 
CEP: 71500 - Brasilia - DF. 


e ZX Spectrum: programas ori- 
ginais ingleses, livros, revistas - Bar- 
bosa - Cx. Postal 31.052 - RJ - 
CEP; 20732. 


e Troco programas (Basic/As- 
sembler) p/Tks, CP. carta/K-7. R. 
F. Francisco Sampaio, 180 — San- 
tos-SP, — CEP: 11100 — Tel.: 
(0132) 380884 — Roberto. 


e Vendo e troco programas Sin- 
clair TRS-80, peça catálogo. Os- 
valdo Alencar - Av, Gentil Bitten- 
court, 124/1.301 - Belém - PA. 
CEP: 66000. 


e Soft p/TK e CP, Lista grátis — 
FM Software - Cx. Postal 85 - 
Tatuí - SP, ou R. Proença, 311 - 
J, Proença - Campinas. 


e Vendo 55 jogos p/60 mil li- 
nha Sinclair. Leonardo - Av. Ber- 
nardo V. de Melo, 3.481/021 - 
Piedade - Jaboatão - PE, Tel.: 
(081) 361-0292. 


e Apple & Compatíveis progra- 
mas e manuais — Solicite listas - 
Dominio Público Soft & Man - Cx. 
Postal 201 - S, Bernardo do Cam- 
po - CEP: 09700 -S. Paulo, 


e TK 85 e compatíveis. Progra- 
mas inéditos. Peça relação pelo 
correio, Bonisoft - Av, Paula e 
Souza, 422 - Maracanã - Rio - 
RJ. CEP: 20271, 
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e TRS 80 Color 
mas. Raul Horter. Cx. Postal 46 - 
Campo Bom - RS, CEP: 93700. 


— Troco progra- 


e Topografia; Soft para cálculo 
analítico de área para Sinclair (300 
estações). Com Ricardo - Rua Sil- 
va Jardim, 1.953 - ap. 702 - Santa 
Maria - RS. CEP: 97100, 


e Atenção usuários dos micro- 
computadores, TK, Apple, esta- 
mos comercializando programas 
de alta qualidade, entre eles, para 
linha Apple estão o famoso edi- 
tor gráfico The Print Shop, Janela 
Mágica Il, e os incríveis progra- 
mas: Visicalc, DBase ||, Visi File e 
jogos como Skay Fox (tridimen- 
cional), Wolfenstein Il e muitos 
outros que você nem pode imagi- 
nar, Para a linha TK temos: Sinte- 
tizador de Voz, Zaxxon, Polares 
e muitos mais (130 títulos). Es- 
creva para Lumen Soft — Rua Li- 
cinio Leite Machado, 59 - Santa- 
na - São J. dos Campos - - SP, - CEP 
12200. Ou ligue para (0123) 
22-0420. 


e Pacote de cálculo numérico 
para linha Sinclair. Fita com 18 
programas, incluindo; Sistema Li- 
near, Inversão de Matriz, Autove- 
tores, Sistema Não-linear, Calcu- 
lador de Fórmulas, Zeros de Fun- 
ções, Regressão Linear, Interpola- 
ção, Integral, Série de Fourier, 
Gráfico de f(x), Superfícies, Cur- 
vas Paramétricas, Transformações 
no plano complexo, Equações di- 
fereênciais ordinárias (com gráfi- 
cos). Acompanha manual, Preço 3 
ORTN. Envie cheque nominal a 
Luiz Henrique Duczmal - Rua Ja- 
va, 186 - Nova Suíça - Belo Ho- 
rizonte - MG, CEP: 30000, 


e Programas para Apple: aplica- 
tivos, utilitários, compiladores, 
linguagens e jogos. Tel.: (021) 
239-0449 - Stela, 


DIVERSOS 


e Vendo monitor de vídeo pro- 
fissional PH Verde 24 MHZ de 
banda passante para Apple ou CP 
300, preço 850.000 - Tratar com 
Luiz, tel.: (011) 208-2176. 


e Vic Commodore manutenção 
séria, mil soft, manuais em portu- 
guês, cabos, capas, interface K7 e 
RS 232 para CBBS e projeto Ci- 
randão, manuais técnicos para 
Epson, TRS 80, conectores, etc, 
Bartô Computadores - Tel.: (021) 
262-1213 - Av, Nilo Peçanha, 
50/2.407 - Rio. 


e Vendo placa 80-Col. p/Apple 
Ile. Tratar com Armando, tel.: 
(0132) 36-6208, 


e Instalo gravadora de memória 
EPROM (2716-2732) nos micros 
da linha Sinclair, permitindo có- 
pias de outras memórias ou gra- 
vação de dados da memória. 
Adapto também expansão de 8K 
(4K-Eprom e 4K-RAM). Tratar c/ 
José Carlos. Tel.: (011) 2220-4061. 


e Alta resolução — Projeto com- 
pleto (Hard/Soft) para linha Sin- 
clair (TK, NE, CP). Montagem 
facílima de baixo custo (32 1,5 
ORTN). Cheque Cr$ 15.000 no- 
minal para Nilton Cazzaniga Jr. 
Rua José Pedro Cosenza, 377 - 
Itatiba - SP - CEP 13250, 


e Manuais em português para 
micros e periféricos Commodore, 
Escreva para W. Belo, R. Itamara- 
ça, 47 - D. Caxias - RJ ou tel.: 
(021) 771-6889, 


e Sensory Chess Challenger 9, 
em bom estado. Preço em aberto. 
Contatos à noite com Italo, tel.: 
(011) 533-6671. 


CURSOS 


e BENNY Curso de Basic Indivi- 
dual em 5 pagamentos. C/rodfí- 
zio de computadores das linhas 
TRS-80, Apple e Sinclair, qual- 
quer idade. Tel.: (011) 570-1555. 
Metrô Arosa. 


e Mumps — A Matrix promove, 
mensalmente cursos de Mumps. 
Rua Maestro Elias Lobo, 70. CEP: 
01433 - SP. Informações (011) 
64-0688. 


e A MIKROS está promovendo 
regularmente cursos de Introdu- 
ção ao Processamento de Dados, 
Basic e Basic Avançado, nos 
seguintes horários; segunda, quar- 
ta e sexta, das 10:00h às 11;00h, 
14:30h às 15:30h e 18:00h às 
19:00h, duração de 3 meses, total 
de 36 horas, sendo que a maior 
parte das aulas será prática. Melho- 
res informações Av. Ataulfo de 
Paiva, 566 - sobrelojas 211 e 202 - 
Rio - RJ. Tel.: (121) 239-2798 ou 
511-0599, 


e PALESTRAS: Palestras gratui- 
tas sobre Basic, CP/M, DBase, 
Visicalc e Wordstar na People 
Computação. Av. N. S, Copa- 
cabana, 1.417, loja 313, tel: 
(0271) 521-1549. 


e O Instituto de Tecnologia 
ORT, está para o mês de abril 
com inscrições abertas para Os se- 
guintes cursos; Microcomputado- 
res para Usuários, Microcomputa- 
dores para Programadores e Ana- 
listas e Microcomputador na Edu- 
cação. Informações e inscrições à 
Rua Dona Mariana, 213, tel.: (021) 
286-7842 - Rio de Janeiro - RJ. 


e A Datamicro está com inscri- 
ções abertas para os seguintes 
cursos: Microcomputadores para 
TRT (8 a 14 anos), Módulos 
11, HI com 12 horas cada, Pro- 
E stução Basic | (28 horas) e 
Avançado (20 horas), Linguagem 
de Máquina para o TK (20 horas), 
Micro Aplicado ao Cálculo Estru- 
tural (20 horas). Informações Rua 
Visconde Pirajá, 547, s/211 - Ipa- 
nema - Tel.: (021) 511-0395. 





CLUBES 


e Petroclub — Escreva enviando 
anexo 2000 mil e receba imediata- 
mente jogos e programas para a 
linha Sinclair ou TK 2000, e en- 
vie também detalhes do seu mi- 
cro, Rua Sold. Hercilio Tardeli, 
152 - Petrópolis - RJ. CEP: 
25600. 





EQUIPAMENTOS 


e Vendo TK 85, 48K, alta reso- 
lução, saída p/ monitor, 2 grava- 
dores, Joystick e 170 programas. 
Eugênio Betanho, tel,: (011) 
64-7074 - São Paulo. 


e Micros usados compro, troco é 
vendo. BENNY. R. Domingos de 
Morais, 407, CEP: 04009 — Tel.: 
(011) 570-1555. Metrô Arosa. 


PARA ANUNCIAR NESTA SEÇÃO 
ESCREVA PARA: 


Av. Presidente Wilson, 165/Grupo 1210 
Centro — Rio de Janeiro/RJ — CEP 20030 


Tels.: (021) 262-6306 

Rua Oliveira Dias, 153 — Jardim Paulista 
São Paulo/SP — CEP 01433 — Tels.: 
(011) 853-3229 
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VOCÊ TEM QUE ESTAR PREPARADO 
PARA SE DESENVOLVER COM 05 
NOVOS TEMPOS QUE ESTÃO AÍ EO 
CR 400 COLOR É A CHAVE DESSA 
EVOLUÇÃO PESSOAL E PROFISSIONAL 





POR QUE? 
PORQUEO 
CP 400 COLOR É 
UM COMPUTADOR 
PESSOAL DE 
TEMPO INTEGRAL; 
LTL. PARA À 
FAMÍLIA TODA, O DIA INTEIRO. 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO, É MUTIO MAIS EMÓCIO: 
NANTE PORQUE, ALÉM DE OFERECER 
JOGOS INÉDITOS, É O ÚNICO COM 
2 JOYSTICKS ANALÓGICOS DE ALTA 
SENSIBILIDADE, QUE PERMITEM MO- 
VIMENTAR AS IMAGENS EM TODAS 
AS DIREÇÕES, MESMO. NA HORA 
DE TRABALHAR E ESTUDAR, O CF 40) 
COLOR MOSTRA O SEL LADO SÉRIO: 
MEMÓRIA EXPANSÍVEL, PORTA PARA 
COMUNIO AÇÃO DE DADOS, SAÍDA 
PARA IMPRESSORA, E UMA ÓTIMA 
NETIDEZ COM IMAGENS COLORIDAS. 

COMO SE TUDO ISSO NÃO 
BASTASSE, A PROLÓGICA AINDA OFE/ 
RECE A GARANTIA DE QUALIDADE 
DE QUEM É LÍDER NA TECNOLOGIA 
DE COMPUTADORES, E O PREÇO 
MAIS ACESSIVEL, NA CATEGORIA 

NUMA FRASE: SE VOCÊ NÃO 
QUISER CHEGAR ATRASADO AU EU 
TURO, COMPRE SEU CR 400 COLOR 
IMEDIATAMENTE, 

EMOÇÃO E INTELIGÊNCIA NUM 
EQUIPAMENTO SÓ, 

« MICROPROCESSADOR: GUSE COM 





ESTRUTURA INTERNA DE 
LO BITS E CLOCK DE FREQUÊNCIA 
DE ATÉ 1,6 MHZ. 

e POSSIBILITA O USO DEATÉ 
9 CORES, E TEM UMA RESOLUÇÃO 
GRÁFICA SUPERIOR A 49,000 
PONTOS 

e MEMÓRIA ROM: LOK BYTES 
PARA SISTEMA OPERACIONAL E 
INTERPRETADOR BASIC. 

* MEMÓRIA RAM: O CP 400) COLOR 


ESTÁ DISPONÍVEL EM DOS MODELOS: 


e MODELO I6K 
EXPANSÍVEL A 
(ik BYTES. 

a * MODELO (ri: 
ATÉ G4K BYTES 
QUANDO USADO 
COM O NOVO 
DISK-SESTEM, 
CP 450. 

e (CP ADO COLOR DISPÕE DE 
CARTUCHOS DE PROGRAMAS COM 

1ÓK BYTES DE CAPACIDADE, 

QUE PERMITEM 0) CARREGAMENTO 
INSTANTÁNEO DE JOGOS, 
LINGUAGENS E APLICATIVOS COMO 
BANCO DE DADOS, PLANILHAS 

DE CÁLCULO, EDITORES DE TEXTOS 
APLICATIVOS FINANCEIROS, 
APLICATIVOS GRAFILOOS, | 1L. 

e SAÍDA SERIAL RS 232 € QUE 
PERMITE COMUNICAÇÃO DE DADOS 
ALÉM DO QUE, ATRAVÉS DESTA 
PORTA, VOCÊ PODE CONECTAR 


= 
= 





QUALQUER IMPRESSORA SERIAL 
DU ATE MESMO 
FORMAR UMA q 
REDE DE TRARA: 
LHO COM | 
OUTROS MICROS, 

e PORTA PARA 
GRAVADOR CAS 
SETE COM GRAVAÇÃO E LEITURA 
DE ALTA VELOCIDADE 

e SAÍDAS PARA TV EM CORES E MONI. 
TOR PROFISSIONAI, 

* DUAS ENTRADAS PARA JOYSTICKS 
ANALÓGICOS QUE OFF REC EA 
INFINITAS POSIÇÕES NA TELA, 
ENQUANTO OUTROS TÊM SOMENTE 
& DIREÇÕES. 

* AMPLA BIBLIOTECA DE SOFTWARE 

JÁ DISPONÍV El, 
e ALIMENTA, AO: IUEZMI VOLTS 





VEJA, TESTE E COMPRE 
el CR O COLOR NUS MACA AL Es 
E REVENDEDORES PROLOGILA, 





CE 


COMPUTADORES PESSOAIS 
AUA PICA OMEL, 650 - VILA SOCORAO 
SÃO PAULO, SP. CEP OS a 

FÓMIES (PRXISS E ES AM O a Re rot 





Apresentamos 0 | pagar, faz sua programação financeira, | que se preza, ele tem teclado 


a efetua a folha de pagamentos e profissional, aceita monitor, diskette, 
IK DU) I administra minuto à minuto as suas impressora & já vem com interface. 
He rod O Drogram: atividades. “Além de poder ser ligado ao seu 
Id U Ú d Uetalhe importante: 0 novo televisor [cores ou P&B, oferecendo 
Mais famoso TK 2000 ||, com Multicale, pode som & imagem da melhor qualidade. 
- 7 intercambiar planilhas com Portanto, peça logo uma 
Ú mun O. computadores da linha Apple” demonstração do novo TK 2000 ||, nas 


E, como todo business computer | versões 64K ou 12BK de memória. 

À mais nova estrela do show 
business só espera por isto para 
estrear No seu Negócio. 


De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 |. Por que? 

O novo TK 2000 || roda 0 
Multicalc : a versão Microsoft do , 
VisicalcY 0 programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas à 














Preço de lançamento* (128 K): 
Cr$ 2.649.850 


computadores pessoais 


EDNA 
CONTROLE 


IVUCRODUSHTAL 





* Sujerlo à alieração sem prévio guisa 


& Marca registrada da Apple Computer, 


Fiada à ABICOME 


& Marca registrada da Visicorp 


